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ABSTRACT 


The flight tut system combines stete-of-the-ert microprocessor 
technology end high eccurecy instrumentation with peremeter identifi- 
cation technology which minimise date end flight time requirements# 
The system wee designed to avoid permanent modifications of the test 
airplene and allow qu^ck Installation. It Is capable of longitudinal 
and lateral-directional stability and control derivative estimation. 
This report present? details of this system* calibration and flight 
test procedures, and the results of the Cessna 172 flight test pro- 
gram. The system has proven easy to install, simple to operate, 
and capable of accurate estimation of stability and control param- 
eters in the Cessna 172 flight tests. 
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1. INTRODUCTION 


This report describes the results of work completed in the third 
phase of a continuing program sponsored by the NASA Dryden Flight 
Research Facility (NASA-DFRF) . Funding was provided under NASA 
Grant NSG 4019 (CRINC/FRL 4070). This program began on January 21, 
1979; and the current phase was completed on March 31, 1982. The 
program encompassed Che design, development, and use of a simple, 
self-contained flight test data acquisition system. The program 
was divided into three phases: 

Phase I 

* A literature survey of flight test techniques 
(Reference 1) . 

• The development of a proof-of-concept system capable 
of longitudinal stability and control parameter 
estimation (Reference 2). 

Phaoe II 

• The development of a complete system capable of 
longitudinal and lateral-directional stability and 
control parameter estimation (Reference 3) . This 
phase included sufficient flight testing to prove 
the flight test system. 

Phase III 

* The refinement of the completed system for a cleaner 
installation, overall package size reduction, and 


additional ease of use. 


* The completion of flight tests on a Cessna 172 
airplane at various cruise power settings. 

This report describes in detail the system components, call* 
brat ion and analysis procedures, as well as the results of the flight 
test program. 

Thu purpose of the project is discussed in Chapter 2. Also 
discussed in that chapter are the design criteria and formal require* 
ments for flight test Instrumentation systems. The literature survey 
(Reference 1) was the primary instrument for establishment of the 
criteria. 

Chapter 3 describes in detail the hardware that was selected 
and assembled into the final data acquisition system. Copies of the 
Instrument specifications are included. 

The data acquisition system is capable of longitudinal and 
lateral -directional stability and control parameter estimation. 

The limitations of the system are only those of sensor accuracy and 
range and limited computer program capability. The instrument 
ranges selected for this system were applicable to general aviation 
class airplanes. The computer program used for data analysis is 
applicable to linear, time invariant equations of motion. 

The system was designed with the goals of ease of installation 
in an airplane and little or no need for permanent modifications 
to be made to the airplane. The data acquisition system is composed 
of four major modules: 

(1) The power supply module, which consists of an independent 
battery and voltage regulation system. In this manner the 
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data acquisition system is totally Isolated from the 
airplane electrics' system. 

(2) The transducer module, which consists of s package of 
Inertial Instruments combined with various external 
transducers (total temperature probe, to x pressure 
probe, static pressure probe, and three control position 
transducers) . These external transducers are taped to 
the airplane with double-sided foam tape. 

(3) The data management module, which consists of a micro- 
computer controller, a 16-channel multiplexing ana log - 
to-dlgltal converter, and a digital cassette recorder. 
This data system has proven to be a simple, accurate, 
and reliable method for recording flight test data. 

(4) The operator's control module, which consists of the 
switches which control the data acquisition program 
as well as an independent digital voltmeter. This 
voltmeter is used for checking the output of the trans- 
ducers (both inflight and during ground checkout). 

Chapter 4 contains a description of the ground-based computer 
system and a discussion of the selection procedure that led to thf; 
purchase of this computer system. 

The data analysis programs and linear airplane math model 
are discussed in Chapter 5. The heart of the parameter estimation 
technique used in this project is the Modified Maximum Likelihood 
Estimation (MMLE) program (Reference 5). 
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The actual results of the KU flight test program on a Cessna 172 
are discussed in Chapter 6. These results are compared agalnet esti- 
mated longitudinal and lateral-diructlonal stability derivatives 
from NASA-Langley flight tests (Reference 4). Also Included in 
this chapter arc discussions of the flight test maneuver and test 
procedures. Figure 1.1 shows the experimental configuration of the 
tested Cessna 172. 



Figure 1.1 Experimental Conf iguratx. .. of the Airplane Tested 


ORIGINAL PAUL 

riLACK AND WHITE PHOTOGRAPH 
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Chapter 7 presents the conclusions which were drawn from the 
experiences using this data acquisition system. Chapter 8 discusses 
recommendations for further work and for changes which can be made 
to Improve the data acquisition system. 

References and a list of all reports and formal papers which have 
been written about this research are presented in Chapters 9 and 10. 

Appendix A has been included for a description and listing 
of all computer programs used in the flight testing and data analysis 
procedures. 

A comparison of the KU-FRL MMLE output with the NASA-DFRF 
MMLE output has been included as Appendix B. The test case A 
(of Reference 5) was run on the KU-FRL computer system and compared 
with the output listed in Reference 5. 

To allow for conversion of the estimated parameters among 
the various axes systems. Appendix C presents several sets of 
transformation equations. This appendix is taken directly from 
Reference 6. 
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2. PURPOSE OF PROJECT 

Flight testing airplanes has previously required a high degree 
of complex Instrumentation to get good results. This is particularly 
true in stability and control parameter estimation. In general, the 
normal approach has been to equip each individual flight test airplane 
with available instruments coupled with those specifically needed 
for the test program. This nonaystematic approach to the requirements 
of the flight test program can lead to high cost and needless com- 
plexity in the instrumentation system. This complexity typically 
leads to many man-hours in instrumenting the airplane and Ln system 
checkouts. 

With recent advances in microcomputer technology, it was thought 
that an accurate, multipurpose data acquisition system could be de- 
veloped which was applicable to flight testing airplanes. This system 
would combine state-of-the-art microcomputer technology with high- 
accuracy sensors in a systematic approach to the problem of flight 
testing. The system described within this report has been developed 
to meet those goals. The design criteria for the system are explained 
below. 

• EASE OF INSTALLATION: This has been a major design consider- 

ation; if possible, no permanent modification should be done 
to the airplane. The system should be easy to install, should 
require few man-hours for installation, and should require 
no complex installation procedures. This should include the 
control surface position transducer (CPT) calibrations which 
are done after the system is installed. 
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SELF-CONTAINED: The system should be totally Independent 

from the airplane. This Includes Independent power as well 
as sensors. Likewise minimum ground support should be needed. 
SIMPLE: The system should be simple in operation. Complex 

instrumentation procedures, difficult calibration techniques, 
and specialized operator knowledge should be kept to a 
minimum wherever possible. 

FLIGHT TEST MANEUVER: The system and data analysis procedures 

should require no specialized piloting techniques to obtain 
good results. 

CLASS OF AIRCRAFT: The system and analysis methods should 

be applicable to all classes of aircraft. For this specific 
a. plication, the transducer ranges and accuracies were chosen 
for general-aviation-class airplanes. 

FLEXIBILITY: The system and analysis methods have been proven 

for stability and control parameter estimation; but regardless 
of this, the system should be adaptable to other test require- 
ments. 

COSTS: The system should meet all of the above objectives 

at a lower cost than current flight test methods and systems. 
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3. INSTRUMENTATION SYSTEM 


The system designed and developed in this research program meets 
the criteria listed in Chapter 2. The flight system can be broken 
into four major parts: 

(1) Data Management Computer, 

(2) Transducers, 

(3) Power Supply, 

(4) Operator's Control Box. 

A block diagram of the complete flight test package is shown 
in Figure 3.1. This system is used in two modes: 

(1) airborne mode for recording flight data 
(Figures 3.2 and 3.3), 

(2) ground-based mode for transferring flight test data 
to the data reduction computer (Figures 3.4 

and 3.3). 

In the following sections the requirements of the flight test 
data acquisition system, detailed descriptions of the system com- 
ponents, and design trade-offs are discussed. 

3.1 Requirements 

The requirements of the instrumentation system were accumulated 
through a literature survey (References 7 through 23) and through 
discussions with personnel at NASA-DFRF and in the aerospace industry. 

Table 3.1 summarizes the sensors used in previous test programs. 
It also shows the sensors chosen for this system. The number of 
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Figure 3.1 Overall System Block Diagram 
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WEIGHTS 
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*not shown 


Figure 3.2 Major Components of the Airborne System 
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Figure 3.4 Major Components of the Data Transfer System 
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Figure 3.5 Data Transfer System Block Diagram 
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channel* co be recorded was act at fourteen wich growth capability 
to aixtecn. The application of the MMLE method (eee Chapter 5 for 
details) does not require that all states be measured to get good 
parameter estimates of the equations of motion. Because of this 
fact, one of the important selection criteria for excluding 
measurement of a state was the complexity of the sensor installation. 

The accuracy required of the sensors was determined by study of 
these other systems. Table 3.2 summarizes this information. The 
required ranges of these seniors were determined by consideration 
of the performance characteristics of the class of airplanes to be 
tested. These ranges and the system accuracies for the selected 
sensors are summarized in Table 3.3. 

For Phase 111 all transducer channels were measured at the 
same sample rate. This is quite different from earlier work which 
limited measurement of temperature, static pressure and dynamic 
pressure to the beginning and end of each maneuver. 

The choice of data sample rate was based on the following 
considerations: 

• The minimum sample rate must be higher than the highest 
undamped natural frequency of the airplane. 

* The minimum sample rate must be high enough to avoid 
time skewing the data points. 

* The minimum sample rate must be high enough to measure 
the control input completely. 

• The minimum sample rate must be a6 low as possible within 

the above constraints to allow economy of the recording media. 
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Table 3.3 Transducer Accuracy and Range Used 


Symbol 

Sensor 

Resolution/ 

Accuracy* 

Range 


longitudinal acceleration 

.0020 g 

±2 g 


lateral acceleration 

.0020 g 

±.5 g 


normal acceleration 

.0024 g 

15 g 

6 

pitch angle 

.5* 

±30* 

$ 

roll angle 

.5* 

±30* 

p 

pitch rate 

.5*/sec 

t 50* /sec 

q 

roll rate 

.S'/sec 

±50*/sec 

r 

yaw rate 

.5*/sec 

±50*/sec 

6 e 

elevator position 

.5* 


6 a 

aileron position 

.5° 


6 r 

rudder position 

.5° 


T 

temperature 

2°F 

-65* to 120*F 

P S 

static pressure 

.010 psla 
(25 ft) 

0 to 25 K feet 

P D 

dynamic pressure 

.005 psi 

4u to 150 knots 

U 

1 


(4 knots) 


* 

whichever value is larger 

0 



For data analysis a sample rate of at least five times the 
highest undamped natural frequency defines the minimum acceptable 
sample rate (Reference 24, Volume 1, Chapter 6). In this class 
of airplanes the following natural frequencies are typical 
(Reference 25) . 

0.05 - 1.00 Hz 
0.01 - 0.03 Hz 
0.25 - 0.60 Hz 


(a) 


n 


SP 


U) 


w 

“p 


U> 


"d 
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This sets an absolute minimum on the sample rate of five samples 
per second (SPS). Reference 16 states that to measure the control 
input time history, 20 SPS should be a lower limit. For this reason, 
two sample rates were investigated in this phase, 10 and 20 SPS. 

The use of a computer-controlled data acquisition system allows 
rapid scanning of the sensors (20 usec/channel, 280 usee total*) 
which eliminates the time skewing problems normally associated with 
these slow sample rates. 

3.2 Data Management System 

The data management module consists of a microprocessor-controlled 
data acquisition computer system. It uses a commercially available 
Rockwell AIM-65 microcomputer tied to a 16-channel multiplexing analog- 
to-digltal converter end a digital cassette tape drive. The use of a 
commercially available computer greatly reduced the design task as 
well as the overall system complexity and cost. The versatility 
of the system is high, since the functions of the system are stored 
in firmware (erasable, programable read only memory— EPROM) which 
can be easily changed, rather than in the hardware, which cannot. 

There were many trade-offs in the choice of a system for on-board 
digital recording of the flight data. The trade-offs considered 
were those of analog vs. digital data recording and airborne vs. 
telemetry systems. The following is a discussion of these trade- 
offs as well as a detailed description of the system which was 

developed . 

* 

Values for the KU-FRL system. 
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In Che past, most systems which used crue on-board recording 
(ignoring photopanel installations which must be manually recorded 
at a later time) used analog recording systems. This fact was due 
to the high cost and complexity of digital systems. In recent 
years, progress has been made, largely due to advances in silicon 
chip technology, which have reduced the size and cost of digital 
systems dramatically. These advances, coupled with the fact that 
the data analysis techniques usually require digital information, 
motivated a choice of a totally digital system. 

Flight programs in the past have typically used telemetry 
for transmitting the digital data to the ground for recording. 

Telemetry has an important place in aircraft flight testing, 
specifically in high risk operations such as flutter or spin 
testing. The major disadvantages are the required ground station, 
high cost, and complexity of the on-board telemetry system. This 
method has been preferred in the past due to the large size and 
inaccuracies of older recording methods. The improvements discussed 
previously combined with advances made in digital recording devices 
have changed r^is. For the KU-FRL recording system, an on-board digital 
cassette recorder has been chosen. 

The heart of the data management module is a Rockwell AIM-65 
microcomputer. This computer is coupled through its expansion inter- 
faces to the other components. These components are the Datel MDAS- 

16 multiplexing analog- to-digital converter, the TEAC MT2-02 digital 

* 

cassette tape transport, and an RS232 interfacing port. A block 

diagram of these components is shown in Figure 3.6. 

* 

RS232 « serial interfacing standard 
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Figure 3.6 Computer Module Block Diagram 

The AIM-65 is a single-board computer that uses an eight-bit 
6502 microprocessor. The computer contains 4K bytes of random 
access memory (RAM), 4K bytes of EPROM (which contain the data 
acquisition programs), as well as a monitor and symbolic assembler. 
A 20 character display, 20 character printer, and keyboard unit 
allow the user to interact with the computer in the ground-based 
modes. Two application connectors greatly increase the versatility 
of the computer system. One expansion connector interfaces the 
computer with an RS232 port and to an audio cassett recorder 
which is used for software development. The second port is used 
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Figure 3.7 MDAS-16 Data Acquisition Module 


for memory expansion and external computer interfaces. For the KU- 
FRL system this expansion port is used to interface the computer 
with the MDAS-16 and TEAC MT2-02. 

The MDAS-16 module is shown in Figure 3.7. This device is a 
16-channel multiplexing unit combined with a 12-bit (3 1/2 digit) 
analog-to-digital converter. The unit has random address as well 
as sequential address capability when tied to a microprocessor 
controller. The measurement voltage ranges are user-selectable 
(-5 to +5 VDC was se. ected for this system). The unit has an 
effective throughput of 30 KHz with 20u seconds access time between 
channels. The specifications for the unit are shown in Figure 3.8. 
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ACCURACY 

Resolution 12 Bus 

Error, mis. 60kHt sampling 4.026% of FSR 

Nonlinearity. mu tV* LSB 

Otff. Nonlinearity. mu tW LSB 

Coin Error Atfj to taro 

Offset Error Adi to rero 

Temf. Cooff. of Gain, mu. 430ppm/*C 
Temp. Coeff. of Offset. mu. *7ppm/°C of FS 
Oiff. linearity Tem p s o. mu. i3ppm/°C of FS 
Common Mode Rtfec.. mki. 70 dB «t 1 kH* 

.. 0*C to 70*C 
. . .01%/% Supply 


POWER REQUIREMENT . . *1 5V0C tO 5V @ 65mA 

•!6V0C t0 5V@6G mA 
♦5V0C »0 25V <j| 200mA 

DYNAMIC CHARACTERISTICS 

Throughput Rett, mu 50 kHt 

AoqaMvon Time 12 psac. 

Conversion Time S jisec. 

Aperture Time, mu 50 nsec 

Sample-Hold Droop, mea. . 60 MV/ msec 

Feedthrough, mu 01% 

Channel Crosstali (Mua.) . . -SO dB at 1 kHt 

DIGITA L INPUTS 

Enable Three separate inputs which enable 

tti state outputs in 4 bit bytes 
1 TTL load 

Mua Address In 3 bit IMOAS 80) or 4 bit 

(MDA5 * 1 6) binary sddrms 
1 IS TTL load 

Strobe 1 LS TTL load with 10K pull-up 

resistor 

A/D Trigger 1 LS TTL load with I OK pull up 

resistor 

A/D Trigger 1 LS TTL Load 

Mua Enable 1 TTL load with 10K pull up 

resistor 

Count Enable 1 LS TTL load with 10K pull up 

J __ resistor 

toad Enable 1 LS TTL load with 10K pull -up 

resistor 

Clear Enable USm load with tOK pull up 

resistor 

MSB In 1 TTL load 

Short Cycle 1 TTL load with 10K pull up 

resistor 


ANALOG INPUTS 

Number of Channel# 16 Single Ended (MOAS 16) 

S Differential (MOAS 60 ) 

Input Voltage Rangu 

0 to rfiV 0 to ♦lOV 

bipolar t2 6V,i6V.t10V 

Common Mod# Range* min. HOY 
Mu. Input Voltage. 

no damage 116V 

Input Impedance 100 megohms 

Input Siaa Currant 3nA, 10nA max. 0 to 70°C 

Input Capacitance 

OFF channel 10 pF 

ON channel lOOpF 


DIGITAL OUTPUTS 
Persist Oata Out 

Coding 

Serial Out 


Mua Address Out 


Delay Out ... 
Clock Out ... 
EOClStttus) 
MSB Out . .. . 
MSS Out ... . 


12 parallel lines ol buffered in- 
state output date 
Drives 12 TfL loads 
Straight binary, offset binary, and 
two s complement 
Output data in MSB first. NR2 
format Streightbmaryandolfsai 
binary coding 
Drives 6 TTL loads 
Buffered output of address 
register 

Drives 20 TTL loads 
Drives 5 TTL loads 
Drives 6 TTL loads 
Drives 4 TTL loads 
Drives 5 TTL loads 
Drives 6 TTL loads 


PHYSICAL ENVIRONMENTAL 

Operating Tamp. Range — 0°C to 70°C 

Storage Temperature Range -25°C to ♦85°C 

Package Site 4 6 * 2 5 * 0 375 inches 

(116,8 i 63.6 a 9.5 mm) 

Package Type Steel, shielded on 5 sides 

Weight 6 or (170 g) 


NOTCH: t. AM oupMifS era Ywl JT0 M )«*0 4 V. Vtwt (’'t^»<^ 4 V 
2 . AM inputs are Vm 4**0 I «*0 8 V. Vir« m »*2 OV 


Figure 3.8 


MDAS-16 Module Specifications 
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The calibration procedures for the MDAS-16 are described in detail 
in Reference 31. 

The other major component of the data management module is 
the TEAC tape transport. This unit is shown in Figure 3.9. It is 
a low-cost magnetic tape unit designed specifically for digital 
applications. The unit makes use of standard audio-type digital 
cassette tapes for data storage. All interfacing required for the 
tape transport is included in the package. The tape unit requires 
only control signals and parallel data input, both provided by the 
AIM-65. All detailed control functions required by the tape unit 
are generated internally. Only simple control signals are required 
to initiate the various functions, such as data recording or data 
playback. 

The data management module is also used for data transfer to 
the ground-based computer system. The use of the same recorder 
for in-flight recording and playback avoids possible tape head 
mismatch problems and reduces overall system costs. The data are 
transferred over an RS232 serial port to any computer with an RS232 
port or dial-up time-sharing capability. The RS232 ports can be 
connected directly for transmission of the data at up to 9600 bits 
per second or through a modem across telephone lines at 300 bits 
per second. An appropriate software program is needed by the AIM-65 
to interact with the ground-based computer system. Once the data are 
transferred to the other computer, the Rockwell AIM-65 computer is no 
longer needed. 
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SPECIFICATIONS 


data format 

Data foraat conpllaa with TS0-14O? , EOtA-J*-, JIS-CA2SI and othtr 
eiailer etendarda. 

Racording Format t 
Recording Dtnilty : 

Ruihtr o' Tracfce: 


ODNITIliniON 

titirlor Dlmnalone: 

Height: 

HtCHKICAl CONSTRUCTION 
Tap* Drive Syattni 
lap# Speed DotACCien Syatta: 
CAAAAttf Insertion; 

CAaaatt* Eject Mechanic*: 

iOT/ECn « Claar Laadar Detector: 
Kagnetlc Hood: 


raw uomumrrA 


Phaar Encoding 

100 bpl(32 bita/m, nominal) 

Single Track 


105(H) a 120(H) i tl(0)oa 
1.2kg, Ram. 


D.C. Kotor Olract Reel Drlva Syoten 
Encodar detection 
Pocket Holder type 
Hanual Ejaction by dapraaaiRg 

EJECT gutter. 
Photoelectric Detector 
Single Track, Single Cap Read/ 

Write Head 


OPERATIONAL CHARACTERISTICS 
Tape Speed (Slow) : 

(Past ) - 

ISC: 

traaad Length 
Initial Cap: 

Readable Ilf. Length 
legal red tape length for Loop 
1IC detection: 
Start diataftca for HIGH SPEED 
SEARCH: 

Stop diatanca for RICH SPEED 
SEARCH) 

Hemlnel Data Tranafer Rate: 
Racerding Density 


15 ipeOB.lro/a) t 35 

43 ipadU. Wal * 45 

0.97 i 0.2* inch (24,44 ♦ 4.10w*> 

2.14 t 0.27 |neh<$5.4) ♦ 4.gn**) 

2.24 t 0.40 inch (57. 40 t lO.lneei 

0.7 inch( 1 7 . 7Sam) or note 

15.0-22.2 IncMJSl.O - 343.4m) 

2.4 incM4Q.9iam) or leaa 


1.9 inch(48,24na> or laaa 
12k blra/aec 
•oo bpi :: 4* 


j Average Current 
i Conaumptlon 

Haxinue Currant 
Consuaptlon 

Permanent Ripple > 
Vo 1 cate 

D.C.*11V*3S 
0.6. ♦ ivift 

1.0 A 

1.1 A* 

' Laaa than 10nnvp*p 

6.7 A 

o.fiA* 1 ! 

i Laaa than 100nVp-r 


Treahold Laval (at rafaranea read level) 

(LOU) : IS ♦ » 

(HIGH): 40 t 51 

INTERCHANGEABILITY 

Caaaette tapea which coeply with tha Information Intarchaage fomet 
atandardiaed in ISO- 5402, JIS-C4291, and ate. art eecurely reed by 
tha HID. Alao caaaatta tapaa writtan with tha HTt) enable the 
parfact interchangeability with tha Information Intarchaage fenaat 
atandardiaed in 110*5407, JtS*CS2Sl, and ate. 

mtr 

10,000 houra or aati at tba 102 rata af aparatlon 


• Except for aurge currant at power-co 

CROUHD ISOLATION 

laeulation raalatance between 

ov power awpply and tram ground: 5 Hag Ohaa or more, at 150V D.C. 

OTVI ROHMEHTA L CONDITIONS 

Taaperature ranga<Operating) : 45*C-440*C 

(Storage): -13*C-440*C 

Relative Humidity Range (aon-condena lag) 

(Operating) i 202 * SOI 

(Storage): 102 -902 

Vibration (Operating) ; Lees than O.SGUeea than UOHs) 

(Packaged Condition baaed on TEAC 
ttandard packing): 

iNpect: Laaa then 40C(laee than Mmeec) 

Contlnuoue: Laaa than 1C 


RACKET I C TAPE 

Hagnatlc tape caaaatta far Information la tar change which cooply 
with ISO, ANSI, ECRA. JII, and ether alallar atandarde. Alai* 
the caaaatta weed far the HTt) a he 11 be previowaly app raved between 
TEAC and tha cuateaer. 

Recommended tape: TEAC CT-HK) 


Figure 3.9 TEAC MT2-02 Tape Transport Specifications 
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3.3 Transducers 


To keep the overall system size as small as possible, transducers 
were separated from the voltage regulators and signal filters. Figure 
3.10 shows the transducer package assembly, and also the relative 
location of the sensors in the transducer package. Those transducers 
which must be externally mounted are connected to the transducer 
package through MIL-SPEC connectors. 

The transducer package was firmly clamped to the seat tracks 
just behind the pilot and copilot seats in the Cessna 172 flight 
test program. Following are descriptions of the individual sensors 
used in this program. 

3.3.1 Accelerometers 

The accelerometers used in this package are force feedback 
(or closed -loop) type. This type of accelerometer derives its 
measurement by determining the force required to maintain its 
seismic mass at zero displacement. This technique reduces the 
errors caused by mass displacement and does not rely on springs 
(and their associated inaccuracies) as do displacement (or open-loop) 
type accelerometers. The disadvantage of the closed-loop accelerometer 
is its relatively high cost. It is essential to note that linear 
(as opposed to vibration) accelerometers must be used for this type 
of transducer package. This restriction is due to the low frequency 
characteristics of the vibration and linear accelerometers. 
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Figure 3.10 Transducer Package 






mm. j. 


“"WISH! 


The accelerometers chosen are manufactured by Schaevitz Engineer 
ing. Their specifications are shown in Figure 3.11. Thi6 type of 
accelerometer is intended for measurement of linear accelerations 
such as guidance and control systems or vehicle ride analysis. 

Both a precision sensor and its required electronics have been 
integrated into the accelerometer package. The sensor can be in- 
stalled with relative ease; it requires only a DC input voltage 
and a measurement of the DC voltage output. 

3.3.2 Attitude Gyro 

Both roll attitude and pitch attitude are measured with a 
Humphrey VG-24 vertical gyroscope. The specifications of this 
gyro are shown in Figure 3.12. This gyroscope is a self-erecting 
DC type with potentiometers for determining the sensor outputs 
(+28 VDC used for the motor, and ±5 VDC used for the potentiometer 
excitation). This gyro has operated reliably throughout three 
phases of this test program. 

3.3.3 Rate Gyros 

A three-axis DC/DC rate gyro package was used for measurement 
of pitch, roll, and yaw rates. The advantage of using a three-axis 
package rather than three separate gyros is that orthogonal alignment 
of the gyros upon installation is assured. However, failure of a 
single gyro would require removal of the entire package for repair. 

The gyros selected are displacement (or open-circuit) type. 
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Specifications 
at 20*C 


LSB Linear 



Nominal 

Nominal 


Natural 

Output 

Range 

Frequency 

Impedance 

0 

Ml 

kilohms 

±0 25 

50 

20 

lill 75 10 1 

± 1.0 

155 

cz 

S 2 0 

110 

2.6 

t 50 

125 

5 

±10 0 

140 

2.5 

±200 

160 

5 

±50.0 

200 

5 


Input Vol’age *15V DC nominal 

Input Current to mA DC maximum (6mA DC average) 

Full-Range Open- 

Clrcull Output VotU'pa *5 OV DC 

Damping Ratio 0 6 typical (0 3 to 1 0 on request' 

Linearity (Notes 1 6 2) *0 05% of full scale output 

Hratarasls (Nota 2) 0 02% of full scale 

Resolution (Note 2) 0 0005% of full scale 

Cross-Ails Sensitivity ± 0 002 g par g up to - 10 g range 

(Nota 3) inclusive 

*0 005 g par g over *10 g range 

Rios Lass than 0.1% of full scale 

Sensitive Ails to 
Casa Alignment *1* 

Noise Output SmV rms maximum 

Operating Temperature -40*C to ♦N*C 

Storage Temperature -55*C to ♦105 , C 

Thermal Coefficient 

of Sensitivity 0.02% per *C 

Thermal Coefficient 

•» »ias 0 002% per # C 

Shock Survival 100 g - 11 ms 

Weight 3 oz 



Figure 3.11 Schaevitz Engineering LSB Series Accelerooeters 
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SPECIFICATIONS 


MMGI • MECHANICAL 
- ELECTRICAL 

OUTPUT 

STATIC ERROR LAND 


USX STANCE 

CONTACT RESISTANCE 

RESOLUTION 

POWER DISSIPATION 

WIPER CURRENT 

ELECTRICAL REQUIREMENTS 

SPIN MOTOR 

VOLTAGE 

CURRENT - STARTING 
- RUNNING 

ERECTION 

VOLTAGE 

CURRENT 

performance 

SPIN MOTOR TIKI TO SPEED 
TIME TO ERRECT FROM MOTOR OFF 
NORMAL OPERATING ERECTION RATE 
VERTICAL ACCURACY 

free drift rate 


FITCH itSO* HiiM 
ROLL i 390* cmUauMi 
rjTCNfl90\ t2.5* 

ROLLt 190\ 13.0* 

Potent lonetev output 
PITCH: tl.251 of full scale ot 
0* expand log linearly to 12.091 
of full scale ot 90* 

ROLL) 10.631 of full ocole ot 
0* expanding llooorly to 11.971 
of full ocolo ot 90* 

1500 1100 oho* 

2 otm* Mxinun at 20 nA 
0.21 of full *col« naxiaus 
1 vott ot *163 *F 
20 nA noxinun 


ENVIROMKENTAL CONDITIONS 
VIRRATXOH 


SHOCK 

ACCELERATION - HON OPERATING 
- OPERATING 


TEMPERATURE • OPERATING 
• STORAGE 

ALTITUDE 

SEA WATER VtfERSION 
HUMIDITY 

SALT SPRAY 

RANO AND DUST 
PUNCUS 

EXPLOSION PROOF 


RAO tO NOISE INTERFERENCE 
SERVICE LIFE 
SHELF LIFE 
INSULATED RESISTANCE 

WEIGHT 

SEALING 


vertical Accuracy of 12.0* null 
9a ao into lnod Our lag vibration of 
0.01 loch D.A.* S to 93 IU; 2g, 95 
to 500 Hi • 

15g i 11 Meet oil oxo* 

30 g| 1 ninj vortleol oxi* 

10 g; 1 nin;a*piiod in pitch or roll 
oxlo oholl not product o drift of 
grootcr than 10 Vein, 

-95 to *163 *F 
-•0 eo *185 *F 
ooo level to 400 00 ft 
3 ft for 3 hr. 

to V31 including condonut ion for 
240 hr*. 

o* encountered on ehipboord or et 
cooetel regiona 

o* encountered in deeert region* 
axtorntl surface* non-nutritive 
oholl not produce 'on explosion 
when operated in e fual vapor rich 
area 

MIL- I -9111 { paragraph 4.3.1 4 4.3.2 
100 hr* alninua 
3 yr* ninlaua 

20 angohne niniauo • » 100 volt* DC 
■otar circuit cxenpt 
3.0 19. naxiaue 

•hell not lack under vacua* eouivel- 
ent to 40000 ft. 


26 to 32 volt* DC 

4.3 A noxinun at 30 volt* DC 

for 2.3 second* 

1 A noxinun at 30 volt* DC 

29 to 32 volt* K 

100 nA nexlouo internment 

5 nlnute* naxinun 
within 0.5* in 9 nlnute* 

2 to 9 Vninutc after 3 nln. 
within 0.5* of true vertical 
0.3 Vain, noainoli tested on 
13 1/2* Pcoreby 9 nin. run 
altornating 


Figure 3.12 


Humphrey VG-24 Vertical Gyro 
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Integrating (or closed-circuit) gyros provide better accuracy; 
however, they cost approximately ten times as much. The accuracy 
of a displacement gyro meets the requirements (see Tables 3.2 and 
3.3) and therefore was chosen for the sensor package. 

The gyros selected are manufactured by Northrop Corporation, 
Precision Products Division. Required input power is 28 VDC, 
while the output signal is -5 to +5 VDC. The gyros are model G5 
subminiature rate sensors. The gyro package and specifications 
are shown in Figure 3.13. 

3.3.4 Control Position Transducers 

Linear displacement transducers manufactured by Space-Age 
Control, Inc., were used to measure rudder, aileron, and elevator 
positions. This transducer is shown in Figure 3.14. Due to the 
relatively small size of the transducer, it was considered acceptable 
to mount it externally to the airframe. Chapter 6 shows the instal- 
lation locations used for the Cessna 172 flight tests. 

A novel technique for the attachment of the control position 
transducers (CPT's) has been used. Double-sided foam tape attaches 
these external devices (as well as the temperature and pitot probes) 
to the airframe. The mounting technique is depicted in Figure 3.15. 
This technique was first tested in the KU-FRL subsonic wind tunnel 
at speeds up to 119 mph. These tests were run for two hours with 
no degradation in rigidity of the mount (Reference 27). This method 
has been shown to give excellent results in three flight test programs 


30 


ORIGINAL S'.; 




Weight 

Outline dlMOllODI 
louir input 
Input voltage Halts 
Full-scale rut put 
Output lapedance 
Output load rtilitiDct 
tippli 

Zero rate tatting 
Input range 

(roll /pitch /yaw) 

Hutlaua input rate 
(fcitput voltage 

(at ovtrrange Unite) 
Output ttabiXlty 

(input voXtage variations) 
Repeatability 
Threshold 
Roaolution 
ttysteriais 

Operating tenperature 
Tenperaturc aenaitivity 


2.0 lb. (nan) 

3.75 a 3.75 x 2.13 in 
15 u. (nax) OX vdc) 

28 *3vdc 
15 vdc 

5000 ohna (nax) 

500K (. has (noninal) 

25 xv. peak -peak (nax) 

±1/2 x rs 

50*/eee 

600* /sec 
♦ 7 vdc 

x/2 x rs. 
l x rs. 

0.0X */aec 
0.0X Vaec 
0.1 Vetc 

0 - 160 *r 

Zero output XX FS/100*F 
Scale Factor 3X F8/100*F 


Vara up tine 
Motor acceleration tine 
C table deflection angle 
Acceleration aenaitivity 
Linear 
Angular 
Linearity 

Service life 
Insulation resistance 
Reaping ratio 
Natural frequency 
Envlronaenta 
Shock 
Vibration 

Storage teaperaturc 
Radio Interference 


10 niu 
30 aec (nax) 

12* typical 

0.05 Veec/g 2 
0.08 */sec/rad/see 
1/2 X FS. 0-1/2 scale 
2 x rs. 1/2 - FS 

100 hr (typical 14000 hr) 

10 negohas (ain),50 vdc 
0.5 to 0.9 
35 Hz (ain) 

2S0g peak sawtooth. 5 nsec 
0.1 g /Hz. 20-2000 Hz 
-65 - 200 *F 
MXL-I-81610 


Figure 3.13 Northrop G5 3-Axis Rate Gyro Package 
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OF POOR QUALITY 


TECHNICAL INFORMATION 



MODEL 

DASH 

RANGE 

RESOLUTION 

NO. 

NO. 

OTO (INCHES) 

INCHES 

160- 

161 

2 

0.0033 


Potentiometer lift, 1 ,urn units, 1,000,000 cycles 


3 -tum units, 600,000 cycles 
or POO hours et reted power 
Cable static tension at 30 extension 10-1 6-02 
Op. temp., -85°F to +255 0 F 
Resistance, 1000Q • Other resistances avail- 

able on special order are 
6 . 10 . 20 , 50, 100 , 200 , 
500,(5kJ 5K. 10K, & 20K. 
4GK (3 turn only), 60K and 
100K (1 turn only) 
Standard pots are used unless otherwise specified. 
Specials are available on special order only. 


Standard Special 

Resistance z3% *1% 

Linearity (3 turn) ±0.25% ±0.20% 

Linearity (1 turn) ±0.5% ±0 35% 


Max current at 155°F (ambient) is 31.6 milliamps 
Max. voltage across coil is 31.6 volts 
Power rating. 1.0 watts at 155°F derated to 
0.0 watts at 265°F 

Insulation resistance, 1000 megohm* min. at 

500 VDC 

Dielectric strength, 1000 volts RMS min. at 

60 CPS 



0 >'' 



M«|* 


SAC Linear Displacement: Trans- 
ducers (LDT) consist of an extension 
cable, spirally wound on a spring- 
loaded rewind drum, which Is coupled 
to a precision, wire-wound, rotary 
potentiometer . The cable end is at- 
tached to the object whose movements 
are to be monitored. As the cable is 
extended or retracted, the cable drum 
rotates the potentiometer wiper, vary- 
ing the voltage at the wiper tap (No. 
2) of the potentiometer. The voltage 
may be measured to reflect the posi- 
tion, direction, or rate of motion 
of the object attached to the cable. 


Figure 3.14 Space Age Controls Linear Displacement Transducer 
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3M-4265 Tap* 



DEVICE TO B *: MOUNTED 


ALUMINUM MOUNTING 
/ PUTE 


lighcly sand aurfaca of airplane 
clean vlth isopropyl alcohol 

surface oust be room temperature during attatchment 
fair with duct tape 


SURFACE ON AIRPLANE 

3M <4265 "DOUBLE COATED NEOPRENE FOAM TAPE 

Adhesive A-20 Firm Acrylic 

Thickness 3/64 in. 

Tensile 60 psl 

Static Shear 66 psl 
Temp max. 225 *F 

Temp min -20 *F 


Figure 3.15 External Device Mounting Technique 


(with no failures of any type) . The tape used is 3M number 4265 
neoprene foam tape. Its properties are included in Figure 3.15. 

A minor inconvenience of the mounting locations for the CPT f s 
is the resultant nonlinear calibration curves. All other sensor 
calibrations were linear. 


3.3.5 Static and Dynamic Pressure Transducer 


A B&D Instruments Company model 2504 series transducer was used 
for static and dynamic pressure measurements. This transducer and its 





ORIGINAL PACE IS 
OF POOR QUALITY 


specifications are shown in Figure 3.16. This device incorporates 
its own signal conditioning and utilizes semiconductor pressure 
transducers. This type of pressure transducer is particularly 
temperature sensitive; the B&D unit compensates for this by heating 
its case to maintain a constant temperature. 

The pitot tube was designed and constructed according to speci- 
fications taken from Reference 28 (see Figure 3.17). The pitot 
tube is attached to the underside of the wing using the method shown 
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Figure 3.16 B&D Instruments 2054 Pressure Tran :ducer 
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Figure 3.17 Pitot Tube 


in Figure 3.13. It allows a high angularity of flow while still 
maintaining true readings. The pitot tube has been constructed to 
assure that it remains outside of the boundary layer. This in turn 
assures that true readings are maintained as long as the axis of the 
tube is close to the direction of the airflow (±15°). The tube was 
mounted under the right wing, halfway between the propeller arc and 
the wing tip (see Figure 3.18). This location minimizes flow and 
energy effects of the wing tip vortices and propeller slip stream. 

For accurate measurement of static pressure, a trailing cone 
can be used (see Reference 29). Initial flight tests showed diffi- 
culty in deploying this cone after takeoff. For this reason the 
cone was used in its retracted position for the Phase III flight 
tests of the Cessna 172. This has been found to be sufficient for 
stability and control parameter estimation; however, a more accurate 
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black and white photograph 


PITOT TUBE 


TEMPERATURE PROBE 


Figure 3.18 Location of Pitot Tube and Temperature Probe 


static pressure measurement would be required for any performance 


testing 


3.3.6 Temperature Transducer 


An Analog Devices Company semi conduc Lor temperature transducer 


was used for measurement of air temperature. Specifications for 


this unit are shown in Figure 3.19. The transducer is mounted in 


the probe as shown in Figure 3.20. The sleeve was added to the 


temperature probe to assure that the air is sufficiently slowed 


to provide accurate temperature measurement. The temperature probe 


is mounted to the airplane in the same manner as the pitot tube 






ORKatH/o. KS 

OF POOR QUALITY 


mm**- 


mm asm ... 
T3TS2Z “* 

• »l tl.1l 

lift Kill 


S03» <0.11 
ftJMft ti.i >i 


wjii 


»Jft» 10.711 
IjMI 11,221 


•4i» warn 

Ui* JSSSi ** 


WN 


Model 

ADS90M 


1 Absolute error (rated range) 

Absolute Maximum Ratings 



No external adjustment 

*1.7 C max 

Forward voltAge 

♦44 v 


+25 *C cal lb error • 0 

±1.0*C max 

Reverse voltage 

-20 v 


Nonlinearity 

*3.0*C max 

Breakdown voltage (to case) 

±200 v 


Repeatability 

*0.1*C max 

Rated temperature range 

-55*C to 

♦150*C 

Long term drift 

±0.1*G/month max 

Storage temperature 

-65 *C to 

♦155*C 

Current noise 

40 pAi!Tz 

Lead temperature (solderlng)+300*C 


Power supply rejection 


PowerSupply 



+4v <Vs <+5v 

0. 5uA/v 

Operating voltage range 

+4v to +30v 

+5v <Vs <+15v 

0.2uA/v 

Output 



+15v <Vs <+30v 

O.luA/v 

Nominal current (+25 *C) 

298.2 UA 


Case isolation 

10 l ° ohms 

Nominal temp, coefficient 

lUA/*C 


Effective shunt capacitancelOOpF 

Calibration error (+25 *C) 

10.5 # C max 

Turn on time 

20 ue 




Reverse bias leakage 





(reverse voltage *10 v) 

10 pA 


Figure 3.19 Temperature Transducer Specifications 


TEMPERATURE TRANSDUCER 



Figure 3.20 Temperature Probe 



It is mounted to the underside of the left wing using the double- 


sided tape (see Figure 3.18). 

3. A Calibration 

Calibration of the various inertial transducers used in the 
transducer package was accomplished with a pendulum-type calibration 
stand specifically constructed for that purpose. Figure 3.21 shows 
the calibration pendulum. This pendulum was capable of calibrating 
the attitude gyro, the 3-axis rate gyros, and each of the three 
linear accelerometers. For these calibration tests, the entire data 
acquisition system measured the output of the transducer module, 
which was mounted at the end of the pendulum arm. Thi6 gave a com- 
plete system calibration as opposed to individual sensor calibrations. 
Figures 3.22, 3.23, and 3.24 show the construction drawings for this 
calibration stand. 

The calibration of the transducers was accomplished in two modes: 
(1) a static mode for angular calibration of the vertical gyro and 
for ±1 g calibration of the accelerometers and (2) a dynamic mode 
for calibration of the rate gyros and for calibration of the acceler- 
ometers at elevated-g levels. In the dynamic mode the data acquisition 
system was used to record the sensor time histories at a sample rate 
of 100 SPS. 
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Figure 3.22 Calibration Stand (Side View) 
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Figure 3.23 Calibration Stand (Front View) 









Figure 3.24 Calibration Stand (Details) 














3.5 Filtering 


Early flight tests showed that the response characteristics 
of the accelerometers were such that they picked up aircraft engine 
vibrations. The graph of Figure 3.25 shows the airframe vibration 
characteristics (measured using an accelerometer and observing its 
output on an oscilloscope trace) as a function of engine speed. 

It is obvious from these curves that the vibration is primarily 
caused by the engine and is a function of engine speed. This vibra- 
tion is almost entirely at frequencies greater than 100 Hz. 

A low-pass filter with a break frequency of 20 hertz was used 
to eliminate this unwanted high-frequency vibration from the measure- 
ment signal. A two-pole active filter with the response character- 
istics of Figure 3.26 virtually eliminated the noise and left the 
desired measurement (occurring at a frequency near 1 Hz) unchanged. 
Measurements of the A z accelerometer with filter and without (see 
Figure 3.27) show this to be true. 

To avoid phase shifts associated with filter lags, all channels 
were filtered with the same design two-pole (liter. The filter box 
details are shown in Figure 3.28. 

3.6 Power Supply 

Two options were considered as power sources for this instru- 
mentation system: 

(1) Tap the aircraft electrical system, or 

(2) Carry a separate battery package during the flight tests. 
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FREQUENCY (llz) 










Option on* offered several adventegee over the second option. 
These included a significant size and weight saving as well as no 
limitations to flight time due to depleted batteries. It was 
raalized, however, that two disadvantages also existed. Du* to 
the fact that two separate voltage standards exist in current 
general-avlation-class airplanes, a complex voltage control system 
or several single-input voltage systems would be required. Further- 
more, modifications to the electrical system of each airplane would 
be required during system installation. 

Further research into the second option uncovered a suitable 
rechargeable battery, manufactured by Eagle-Plcher. These lead-acid 
batteries are ealed, rechargeable, and maintenance free. A typical 
discharge curve is shown in Figure 3.29. For flight test purposes 
the batteries were used in a deep cycle regime; l.e., removing 50- 
100% of the rated battery capacity prior to recharge. In this type 
of application, the recharge time is 12 to 20 hours, and the battery 
expected lifetime is 100 to 150 complete discharge/ charge cycles. 

The batteries are usable in any position. The cost of these batteries 
is low enough that several battery packages could be purchased for 
less than the price of a regulated voltage divider (of the type 
required if the airplane electrical systems were used). 

The voltages required for the on-board data acquisition system 
are shown in Table 3.4. Batteries were sized to match the power 
requirements at each of the voltages. The wiring diagram and battery 
specifications are shown in Figure 3.30. The voltage regulation box 


46 


ii CCU. VOLTAGE 
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Figure 3.29 Typical Eagle-Picher Battery Discharge Curve 


is shown in Figure 3.31. This system supplies a maximum of 2 1/2 
hours of running time between recharges. 

The largest disadvantage to using batteries for power is the 
weight. The battery module weighs 61.3 lbs. As the table in Figure 
3.2 shows, this is the heaviest component in the data acquisition 
system. For the majority of general-aviation-class airplanes, this 
weight is not a problem. 
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Table 3.4 Power Requirements for the Data Acquisition Package 


BATTERY VOLTAGE 

REGULATED VOLTAGE 

REQUIREMENT 

+36 

+28 

Heater (P g ,P D ) 

Gyro motors(0,<t>.p,q,r) 

+24 

+15 

Accelerometers (A^, Ay, A z ) 
Filters, MDAS-16 

+12 

TEAC tape drive 

+12 

+5.5 

P and P reference voltage 

+5 

Potentiometers 

(6«<t>»<$ E »<5 A ,6 R ) 

AIM 65 computer 

Temperature transducer 

-12 

-5 

Potentiometers 

(6,4>,6 e ,6 a , 6 r ) 

-24 

-15 

Accelerometers (A^.Ay.A^) 
Filters, MDAS-16 



* maximum current requirement 


| “ ; 

NO 

MINAL CAPACITY 

DIM! 

ENSIGNS (INCHES 

1 


m 

10 HR 

5 HR 

1 HR 

LENGTH 

WIDTH 

HEIGHT 

TO 

TERMINAL 

HEIGHT 

(LB) 

CF12V20 12 

20.0 

19.0 

17.5 

12.5 

6.51 

4.91 

6.53 

6.75 

16.2 

CF12V15 | 12 




El 

7.22 

3.34 




innm 

8.0 

O 

fra 

m 

6.00 

4.00 

3.75 

3.97 

7.5 

|CF12V1.5 12 

_Li 

1.4 

1.3 

0.9 

7.02 

1.33 

2.40 

2.60 

- ’ 9_J 


Figure 3.30 Battery Module Specifications 
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black and white photograph 


3.7 Operator's Control 

The flight engineer or pilot controls the data acquisition 
system through a small control box shown in Figure 3.32. The control 
box per f onus the same functions as the keyboard unit, allowing user 
input to the data acquision programs. 



Figure 3.32 Operator's Control Box 




The control box has four control switches: 


• Program Selection Switch: This switch loads either the 

10 or 20 SPS data acquisition program. This switch allows 
the operator to change sample rates during the flight test. 

• Initialize Tape Switch: This switch initializes a fresh 

tape for proper use by the data acquisition program. 

• Run/Standby Switch: This switch controls the data acquisition 

process. When it is in the run mode, data will be recorded. 

In the standby mode the system is not active. 

• Rewind Tape Switch: This switch is used to place an "end" 

mark on the data tape and rewind the tape. 

A high-impedance digital voltmeter is provided to the pilot 
or flight engineer so that he can observe a particular transducer 
output. The meter is installed in the control box, as shown in 
Figure 3.33. A rotary switch on the control box select's the signal 
to be observed. 

This voltmeter also allows verif •'.ation of correct functioning 
of all transducers prior to flight tesc 
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4. GROUND-BASED COMPUTER SYSTEM 

The Modified Maximum Likelihood Estimation (MMLE) data reduction 
process described in Chapter 5 requires a computer system capable of 
being programmed in a high-level language. Phase I (Reference 2) 
pointed out the requirement for a compiled language capability. This 
requirement is due to the long execution time associated with an 
interpretive language. (A Hewlett-Packard 9825A was used in Phase I. 
This desk-top calculator could only be programmed in interpretive 
Basic.) This chapter presents the results of a benchmark process 
undertaken in Phase II (Reference 3) used to evaluate the capability 
of numerous computer systems. Also included in the second section 
is a detailed description of the selected computer system. 

4.1 Benchmark Routines 


A two-step evaluation process was used to evaluate computer 
system speed. The first benchmark program is the INTEGER SPEED 
ROUTINE. This routine was easily implemented and gave a good speed 
estimate for each computer system. The second benchmark program 
which was run was the FLOATING POINT SPEED ROUTINE. This program 
more closely matched the kind and number of operations which took 
place in the MMLE program. Each of these programs is described 
in detail below. The INTEGER SPEED ROUTINE is a program that calculates 
the prime numbers up to 10,000. The FLOATING POINT ROUTINE is a program 
that performs operations similiar to those in the MMLE program. The 
routine was made to have the same run time on the KP 9825A as one iter- 
ation of the MMLE program (300 time points). 
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4.1.1 Integer Speed Benchmark 


This routine was taken from Reference 30. A listing of this 
program is contained in Table 4.1. Although the program does not 
realistically reflect the MMLE program, it was a simple algorithm 
which was easy to program and gave a good ball-park estimate of 
computer speed. 

This benchmark showed that all acceptable computers used a 
compiled language as well as a floating point processor. Table 
4.2 contains the results of the integer speed benchmark. This 
routine shows no eight-bit computers capable of meeting the desLred 
speed of 8 minutes maximum for completion of the routine. This 
study narrowed the number of computer systems which were evaluated 
further. 


Table 4.1 Integer Speed Routine 
(FORTRAN List ins-'* 


10 


DO 100 M-5, 10000,2 

20 


I-M/2 

30 


DO 200 K-3,1,2 

40 


J«(M/K)*K 

50 


IF(J.EQ.M) GO TO 100 

60 

200 

CONTINUE 

70 


PRINT, M 

80 

100 

CONTINUE 

90 


STOP 

100 


END 


Table 4.2 Integer Speed Comparison 


g 

ifl 

1 

| U 

ft. 

MACHINE 

LANGUAGE 


5 

§ 

jjj 

t 

M 

2 

£S 

if 

HRSlMINtSEC 

1 

£ 


AIM 65 

BASIC (PRINTER OUTPUT) 

* 



4: 

14: 

44 




ASSEMBLY (LED OUTPUT) 




0: 

23: 

36 


s 


ASSEMBLY (PRINTER OUTPUT) 




0; 

33: 

40 


u 

TRS 80 

LEVEL I BASIC 

ft 



7: 

12; 

27 




LEVEL II BASIC 

ft 



6: 

31: 

10 


H 


ASSEMBLY 




0: 

21: 

55 


00 

\ 


FORTRAN 


* 


0: 

54: 

18 


CO 


MODEL II BASIC 

ft 



3: 

15: 

00 



APPLE II 

INTEGER BASIC 

ft 



2 • 

24: 

31 




FLOATING POINT BASIC 

ft 



3 : 

56: 

23 



TERAC 85X0 

PASCAL (COMPILE TO P CODE) 

ft 

* 


0: 

30 s 

35 



TEKTRONIX (4052) 

BASIC 

ft 



Is 

23: 

00 



HP 9825 

BASIC 

ft 



Is 

41s 

17 



HP 1000 

FORTRAN RTE IV B (CRT OUTPUT) 


* 

* 

0; 

01: 

23 

/ 

o 


" (NO OUTPUT) 


* 


0: 

00: 

48 


0£ 

u 


FORTRAN RTEM (CRT OUTPUT) 


* 

* 

Os 

00: 

57 

/ 

£ 


" (NO OUTPUT) 


* 

* 

0: 

00 s 

44 

✓ 


IBM SERIES I 

FORTRAN \N0 OUTPUT) 


* 

* 

0: 

01: 

30 

✓ 

1— * 
to 


" (PRINTER OUTPUT) 


ft 

* 

0: 

04: 

30 


1 

** 

PDP 11/34* 

FORTRAN (RSX 11 M) (CRT OUTPUT) 


* 

* 

0: 

07: 

10 

*' 



" (PRINTER OUTPUT) 


* 

* 

0; 

11: 

20 



MINC 11/23 

FORTRAN RTll-IV (CRT OUTPUT) 


* 

* 

0: 

03: 

36 

/ 



" (DISC OUTPUT) 


* 

* 

0: 

03: 

29 

✓ 



FORTRAN RTil-IV PLUS (CRT OUTPUT) 


* 

* 

0: 

03: 

10 

✓ 

! 


" (DISC OUTPUT) 


* 

* 

0: 

03: 

00 

✓ 


HONEYWELL 60/66 

FORTRAN 


* 

* 

Os 

00: 

44 

✓ 

SC 


PL/1 


* 

* 

Os 

02: 

13 

✓ 

< 5 

CDC CYBER 70 

FORTRAN (NON OPTIMIZED) 

' 

* 

* 

Os 

00: 

39 

/ 

s £ 


FORTRAN (OPTIMIZED) 



* 

Os 

00: 

37 

✓ 


IBM 370-148 

PL/1 (OPTIMIZED) 


ft 

* 

Os 

01: 

19 

/ 

< 

*The PDP 11/34 was operating In a multi-user mode. Its performance 

is estimated to 

be 



approximately 2-3 times faster than the 11/23 series computer in single-user mode. 




4.1.2 Floating Point Speed Benchmark 


An attempt was made to model more closely the processes which took 
place in the MMLE program. This routine is shown in Table 4.3. The 
program primarily contains floating point matrix mathematics. 

Table 4.4 shows the run time for various computer systems. A mov-imnm 
acceptable speed was 6 minutes for this routine (our speed requirement) . 
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Table 4.3 Floating Point Speed Routine 
(FORTRAN Listing) 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 200 

150 
160 
170 
180 
190 

200 300 

210 

220 

230 400 

240 

250 

260 

270 

280 100 
290 
300 
310 


REAL A(20 t 20) ,B(20,20> ,C(20,20) ,E(20,20) ,T(20,20) ,D(20,20) ,F 

INTEGER I,J,K,M 

PRINT,"START" 

F-. 098625 
DO 400 M-1,40 

DO 200 1-1,20 
DO 200 J-1,20 

E(I, J)-0 
A(I,J)-F*I*J 
B(I , J)-F*I 
C(I , J)-F*J 
D(I , J)-F 
T(I,J)-0 

CONTINUE 
DO 300 1-1,20 
DO 300 J-1,20 
DO 300 K-1,20 

T(I,J)-T (T, J)+(A(I,K)*B(K,J) ) 

E(I , J)-E(I, J)+(E(I,K)*D(K, J) ) 

CONTINUE 
DO 400 1-1,20 
DO 400 J-1,20 

E(I,J)-E(I,J)+T(I,J) 

PRINT,"E-" 

DO 100 1-1,20 
DO 100 J-1,20 

PRINT, E (I, J) 

CONTINUE 
PRINT, M 
STOP 
END. 


Table 4.4 Floating Point Sneed Comparison 


MACHINE 


MIN: SECS 

HP9825 

(BASIC) 

48:15 

HONEYWELL 60/66 


0:20.6 

HP1000 

(NO OUTPUT) 

1:08.7 


(DISC OUTPUT) 

2:07 

IBM SERIES 1 

(DISC OUTPUT) 

0:58 

minc 11 / 0 : 

(DISC OUTPUT) 

5:35 

MINC 11/23 

(DISC OUTPUT) 

4:00 
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4.2 Computer System Description 


Several factors besides «.peed were considered In the evaluation 
of computer systems. The following factors were considered: 

• Cost 

• Floating Point Hardware availability 

• RS232 ports/General Purpose Interface Buss (GPIB) 
availability 

• CRT graphics capability 

• Hard/Flexible disk storage capability 

• Programming language availability 

• Existence of a user's group 

• Delivery time. 

After evaluation of all acceptable computers, the Digital Equipment 
Corporation (DEC) MINC 11/03 computer was selected as best meeting 
the requirements. A description of this computer follows. 

The MINC 11/03 is shown in Figure 4.1. The block diagram of 
Figure 4.2 shows the basic features and some of the opcions available. 

The computer uses a 16-bit DF.C LSI 11/03 processor, capable of 
addressing 64K bytes of memory, and contains a floating point hard- 
ware package, four RS232 ports, and a GPIB port. 

D\ta and program storage is handled using the dual RX02 flexible 
disk drives. These use 8" flexible disks, capable of holding 500 K 
bytes of information each. 

Computer and program interaction is handled using the DEC-VT 105 
graphics terminal. This permits inputting and outputting of data, as 
well as allowing graphical representation of the flight test results. 
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*Options available (not on KU-FRL system) 
•Installed on KU-FRL system 
Figure 4.2 MINC 11/03 Computer System Block Diagram 
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The RS232 ports ire used for input and output of ti.e data. 

Four are provided. One is used for the VT 105 terminal, one is 
configured to allow data transfer from the Rockwell AIM- 65, one 
is configured to be modem compatible, and one is used to control 
a hard-copy printer. 

The GPIB port allows ease of interfacing to many Industry 
standard components. This port currently connects the computer 
to a hard-copy plotter for analysis and report-quality plots of 
flight test data. 

The standard MINC comes with Basic language software. The 
KU-FRL package has the RT11-F0RTRAN IV software option. This 
version of FORTRAN allows compiling programs to machine level, 
which was determined necessary f.n perform the data reduction task 
as indicated in Section 4.1. 

The MINC computer has been found capable of performing the 
functions intended. The MMLE process takes approximately 20 minutes 
for 5 iterations, which is close to the prediction from the floating 
point benchmark routine. 

A DEC LA120 hard-copy terminal was added to the computer system. 
The LA120 and its specifications are shown in Figure 4.3. This 
printer is capable of printing at a maximum rate of 180 characters 
per second. The unit is interfaced to the MINC 11/03 computer 
system through an RS232 serial interface port. 

A Hewlett-Packard 7225B graphics plotter was also added to 
the computer system. Its specifications are shown in Figure 4.4. 
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Up to 3 Character*/* lor 2.5-mm (0 l«m ) character* 

Pow®f R®Quirww®nts 

Source 100 120 220 240 V 

-ION ♦SV internai'y selectable 
Frequency 40-66 M 2 

Consumption 70 W maximum 

Envifonnwntel Rmiqc 

Temperature 0*Cto55*C 

Consumption 5% to 96N (below 40*C) 

SUc/Wctght 

Heignt 140 mm (5 5 m ) 

Width 413 mm (16 3 in) 

Depth 379 nm (14 9 in ) 

Net Weight i kg (17 6 IP) 

Shipping Weight 1 1 4 kg (25 IP) approximate' v 


V exit 203 mm (6 in ) 

X exit 285 mm (112 in ) 

Accept* up to ISO A4 or I'y * 11 in chart paper 

rnorung Accuracy 

±0 25 r-rr (0 01) includes linearity and repeatability 
assuming t ne plotter hat been ‘zeroed" exactly to the 
tower left (00) coordinates 


0 1 mm (0004 in ) from any given point and direction 


0 032 mm (00013 m ) smallest addressable step 

P*v\ VetocHy 

TS0 inm/s (10 tnvs) m each axis 
350 mrrv s (14 m /s) on 45* anqie 

Vector Length 

No limn — any length vector within the plotter t 
me cnr/.cai limits will be plotted 


Figure 4.4 Hewlett Packard 7225B Digital Plotter Specifications 


The unit is interfaced to the MINC 11/03 through the GPIB interface 
fhe plotter is capable of plots of up to 8 1/2 x 11 inches in size. 



PRECEDING FACE CLANK NOT FILMED 


5. DATA REDUCTION METHOD 


This chapter describes the computer analysis procedures used for 
longitudinal and lateral-directional stability parameter estimation. 
The overall data analysis procedure is shown in Figure 5.1. 

For Phase III the system described in Chapter 3 was used for 
sensor calibration and airborne data acquisition. The MINC 11/03 
computer described in Chapter 4 was used for all data analysis. 

The computer required much of the analysis procedure to be subdivided 
into small tasks due to its memory limitations. 

The program listings for the computer analysis programs described 
in this chapter are contained in Appendix A. 

5.1 On-Board Computer Programs 

The on-board AIM-65 computer is used for three basic purposes: 

(1) calibration of the instrumentation system, (2) airborne data 
acquisition, and (3) data transfer to the ground-based computer 
system (see Appendix A.l for flowcharts and listing). 

5.1.1 Instrument Calibration 

The instrument calibration program is used to calibrate the 
on-board computer and instruments as a complete system. The program 
is entered by pressing the F2 special function key. It allows any 
of the 16 analog channels to be accessed through the MDAS-16 at a 
very high sample rate and displayed on the LED display. The program 


AIM-65 and 
MINC 11/03 


AIM-65 


AIM-65 and 
MINC 11/03 


MINC 11/03 


♦ 



CRT Graphics Display 


remove data errors 


account for eg offsets 
and instrument bias 


hard copy plots on 
HP 7225B digital 
plotter 


Figure 5.1 Overall Flight Test Data Processing Flowchart 
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calibrates the instruments without the intermediate steps of cali- 
brating to voltage levels. It is written in assembly language for 
fast execution. Reference 31 explains in detail the use of the 
calibration program. 

5.1.2 Airborne Data Acquisition 

This program is used by the AIM-65 for the control of the MDAS-16 
and TEAC digital tape drive. It is written in assembly language and 
is capable of sampling and recording 16 channels of data continuously 
at either 10 or 20 SPS. 

This program has four control inputs which are located on the 
operator's control box. Upon power-up, either the 10 or the 20 SPS 
program can be loaded into the computer. These programs are loaded 
by a single, double-pole, toggle switch. The switch is toggled to 
load the program and then returned to its center position to run the 
program. Once a program is selected, the tape must be initialized. 
This is accomplished with the "INITIALIZE TAPE" button. Pushing the 
button causes the computer to rewind the cassette and write a 
beginning-of-tape mark. This mark is used by the computer for 
locating the data. 

Once the computer has initialized the tape, the "RUN/STANDBY" 
toggle switch is used to control the data acquisition process. 

Placing this switch in the "RUN" position causes the computer to 
begin sampling its 16 channels sequentially and recording their 
output on the digital cassette. The data are sampled continuously 
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at 10 or 20 SPS. This sampling and recording process continues until 
the "RUN /STANDBY" switch is placed in the "STANDBY" position. In this 
mode, the computer remains idle until the "RUN" mode is again selected. 

As a method of checking for data recording errors, the four 
highest bits of the 12-bit digital measurement are recorded twice. 

These bits are compared when the data is dumped, and differences are 
flagged as errors. 

The final switch on the control box is the "CLOSE & REWIND TAPE" 
switch. This switch is used to write an end-of-tape mark on the 
cassette and rewind the tape. 

5.1.3 Transfer of Flight Data to the Ground-Based Computer 

This data transfer program dumps the flight test data from the 
AIM-65 computer system to a ground-based computer system for data 
analysis. The data is dumped from the AIM-65 computer across an 
RS232 serial interface. The program is entered by pressing the 
FI special function key. 

A running total of any data errors is kept and printed out 
by the AIM-65 on its thermal printer. Most errors to date are 
believed to have been caused by poor quality data cassettes. 

Using the qualified cassettes (see Table 5.1 and Reference 26), 
few data errors have been found in the flight data. 

The MINC 11/03 program which accepts the data from the AIM-65 
is shown in Appendix A. 2. This program is used to transfer the flight 
data from the TEAC cassette tape to the MINC 11/03 disk. In this 
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Table 5.1 KU-FRL Qualified Daca Cassettes 


Manufacturer 

Type 

Part No. 

3M 

Scotch 

834A/1-300 

TDK 

Data Cassette 

HR-850 90C 

MAXELL 

Data Cassette 

M-90 

BASF 

Digital Power Typing Cassette 

52346 


(Qualified as per Reference 26) 


mode the AIM-65 keyboard is used for controlling the data transfer. 

The MINC 11/03 program loads the transferred data into its memory and 
then transfers this data to the data disk. 

5.2 Data Analysis Programs 

The data analysis programs are that group of programs which take 
the flight te t data from its AIM-65 format to engineering units, 
perform the MMLE analysis, and present the results. 

5.2.1 Quick Look Plots 

The Quick Look Plots program is the program which allows rapid 
examination of the flight test data on the VT 105 graphics CRT. The 
listing of this program is contained in Appendix A. 3. Upon examination, 
the operator can decide which runs should be subjected to further 
analysis. 



5.2.2 Engineering Unice Conversion 


This program is used Co Cake the raw AIM-65 formatted daca 
and translate it into engineering units. This program only accounts 
for sensor calibrations; the instrument position corrections are ac- 
counted for in the MMLE program itself . The program listing is con- 
tained in Appendix A. 4. 

5.2.3 Modified Maximum Likelihood Estimation Routine 

The flight data were processed through the Modified Maximum 
Likelihood Estimator (MMLE) developed by NASA (see References 5 
and 16-19). This technique has been used by NASA for over 12 years. 

A simplified MMLE program (NASA Dryden "BONES" version) has been 
placed on the M1NC 11/03 computer and updated. The actual program 
listings are included in Appendix A. 7. Described here is the theory 
used in this technique, and some of the assumptions made for the 
KU-FRL version. 

The MMLE estimator is an iterative process that determines 
the coefficients of a given set of linear differential equations 
describing the motion of the aircraft. It does this by comparing 
the difference between actual in-flight measured responses of various 
states, and the predicted responses of these states using an estimate 
of the coefficients. The actual measured control input is used as the 
input for the estimating procedure. The estimated coefficients are 
updated each iteration, using a cost function minimization algorithm. 
The flow chart below shows the MMLE concept. 
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Figure 5.2 Maximum Likelihood Estimation Concept 
(from Reference 17) 

The mathematical model used to describe the airplane is derived 

•ff 

from the small perturbation equations of motion (see Reference 25). 
These are shown here explicitly, in the nondimens ional form. 


The derivatives in Reference 25 are for the stability axes system. 
See Appendix C for conversion to the body axes used in this report. 


aCfWiteMi 


69 




for longitudinal (trom Reference 25, Equation 6.1) 


■“ • * -* UCMC 1 4 5jS(-<C ft ♦ 2 C d ) jj- ♦ (C T 42C V ) r ' <C D ■ C L )» * S i £ ) 

“11 * 0 *1 1 0 1 4 e 


B>lV 


' • V • • * 5i s, - |c i u - !c l.' T; • ‘ c ij • S., % • \V 15-11 

V • 5|* 5 « < c . ♦ «.» fr * <v ♦ > fr ♦ v * V #;* v *t> 

U 11 ~ u ~1 1 0 ~ 0 o 1 q 1 4 e 

- for lateral (from Reference 25, Equation 6.2): 


" <; + V> * "'♦ c ‘ , ‘°l ♦ 5 i r<C y e e 4 c y p % 4 c y r % 4 4 C , V 

lj - lj - 5 ,Sb(C 6 4 c , | ♦ C , ft- ♦ C « A - C y 

6 P l r l i A f R 


zz 


* - 'J • «,» 4 ^ 4 ^ * C n ^i A ♦ C y 


[5.2] 


Using the definitions shown in Table 5.2, Equations [5.1] and 
[5.2] can be converted to the dimensional form shown below. 

- for longitudinal (from Reference 25, Equation 6.72): 


u • - gdcosd^ + X y u + Xj. u + X^o + Xg 6^ 

u E 

w - U x q - - gesinSj^ + Z u u + Z Q a + Z»a + Z q q + Z & fig [ 5 . 3 j 

E 

q«Mu + ILtt + Ma + H,a + M*a + M q + M. fi_ 
n u T ax a q^5_E 

u a n E 


- for lateral (from Reference 25, Equation 6.141): 


+ V • S*“ s6 l + Y e 6 + Y p p + Y r r + Y « A + Y « R 

A I\ 


p - r * Li + L P + L r + L. fi A + L* 6_ 

v I 6 p r fi. A fi_ R 

xx r A R 


[5.4] 


r - if P - V + \ B + V " V + \ S A + \ J R 


zz 
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Table 5.2(a) Longitudinal Dimensional Stability Derivatives * 



* from Reference 24, Table 6.3, page 413 
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Table 5.2(b^ Lateral-Directional Dimensional Stability Derivatives * 


q. SC 
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q^SbC 
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“l SC y -2 

y 5 (ft sec ) 
r . a 

6 . m 

A 


q l SC y -2 

y 6 p (ft sec *) 

’ s_ 

6 r 


q,sbc 

Lg - -j— * ( , ec 2) 

XX 


5 l sb2c t 

S ■ inf ( * ec ' l> 

r xx 1 


5 l Sb J C t 

L t • 2i~ 0. r (8ec " 1) 

XX 1 


q l sb % 

L 6 “ ! ” 
A xx 


q l sbc ;. 6 

^ (.ec“ 2 ) 

R xx 


q.SbC 

1 B p -9 

N g - — j — — (sec j 
zz 


q.SbC 
n l n. 


N t • <»ec- 2 ) 

6 zz 


q,sb 2 c 

N P " ~~ P (8ec ’ 1) 
r zz 1 


q.Sb 2 C 
n l n 


N r " 21 U. (sec * 

zz 1 


q.SbC 

1 n. 

6 a -2 

N 6 - — j * (sec 2 ) 

A zz 


q.SbC 
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N. - — = - (sec *) 

R zz 


from Reference 24, Table 6.8, page 443 
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Using ths concept of state variable theory (see Reference 25), 
Equations [5.3] and (5.4] can be reduced to the following form: 

[R] (x(t) } - (A] { x( t ) } ♦ iB] (u(t ) } (5.5] 

where 

(x(t)> ■ state vector 

(R] • acceleration transformation matrix 

(A] ■ stability matrix 

[B] - control matrix 

{u(t)> • control vector. 

Equation (5.5] can be written more explicitly in the forms 
which follow: 

- for longitudinal (where (R] » identity matrix): 


d 

IF 



K 

m ; 

0 

K 

X* 

a 

V u i 

u i- z i 

z i 

K 

cot (♦ 1 ) 

0 

0 




-g cot (Sj) 

2 . »i" (6 1 ) co* (tj) 
la 


"4 

x 

% 

X 

v ' 
*6 

c 

K 

x 

V 

c 

K 

0 

0 

8* 

O 


[5.6] 


(See Table 5# 3 for explicit definition of these terms.) 
- for lateral: 


IR] 


dt 


L * 

L* 

L! 

P 

r 

B 

N* 

K’ 

K 

P 

r 

6 

sin(a^) 

-cos(a^) 


1.0 


0.0 


0.0 

0.0 


X 


V 


L/ 

r 

V 

r 

V 

r 






0.0 0.0 «' 


(5.7] 


(See Table 5.3 for explicit definition of these terms.) 
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Table 5.3(a) Longitudinal, State Vector Coefficients 
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Note: The equation bias terms are used to allow prediction of the complete 

state which ia made up of the steady state and the perturbed state. 

Note: With the approximations above, Equation [5.6] is rewritten as: 
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Table 5.3(b) Lateral-Directional Stat^ Vector Coefficients 
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To allow determination of states other than the ones contained 
In {x(t)}» the following expression can te derived: 

(y(t)} - [-g-] (x(t)} + [-§-] (u(t) } + {-—} * [5. 

where 

{y(t)> • computed observation vector 

[G] ■ observation matrix 

[H] • observation matrix 

{v} ■ variable bias vector. 

(See Table 5. A for explicit definition of these terms.) 
The computed observation vector, {y(t)}, corresponds to the 
measured observation vector, shown here: 

(z(t)} - { y (t ) } + (n(t)> * [5. 

where 

(z(t)} - measured observation vector * (6, $, p, q, r, 

*X» Ay, A z , 6 e , 6 a , 6 r , Pg, P D , T> 

(n(t)} » measured noise vector. 

From the terms of Equations [5.5], [5.8], and [5.9], the vector 
(c) - f([A], [B], [G], [H], (v}) [5. 

(where f indicates "a function of") is defined as the vector of 
unknowns. It is this vector that the MMLE method estimates. 

MMLE determines the unknowns ((c)) by minimizing the cost function 
given by: 

X 

J - I / (z(t) -y(t)} + [D] { z (t) - y(t) } dt * [5. 

(T, t: indicates time) 

* 

From Reference 5 



Table 5.4 Matrices Used in the Observation Equation 




or approximately in the discrete case: 


J 


1 

(N-l) 


N 



y^lD] - y i > At 


( 5 . 12 ] 


(where i is the time index, and N the number of time points). 

The weighting matrix, [D], is used to provide emphasis on the 
various measured states; in other words, to allow greater emphasis 
on the more accurate transducers, or the transducers that are more 
important to describe the maneuver performed. 

The value of the cost functional, J, is minimized using the 

it 

Newton-Raphson method. This technique is an iterative procedure, 
utilizing an estimated value of the vector of unknowns, {c}, and the 
first and second gradients of the cost functional, J, with respect 
to the vector of unknowns, {c}. The equation 


< C >L * (C >L-1 ' f, c J >[ * 

(where L is the iteration number) is used to revise estimates for 
the vector of unknowns, {c}. The first and second gradients are 
given by: 


(V J) 

C 


2 

N-l 



-y 1 ) t li>] V z i 



[ 5 . 14 ] 


£ V z i " > r i ,+|,>), c <z i * y i } + *Pi Et’i-y/iw 

i«l x-i 




[ 5 . 15 ] 
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The Balakrishnan modification makes use of the fact that the 
term v£{ Zi - approaches zero with convergence and thuB can be 
neglected. The expression for the second gradient becomes: 


<7 I J) * ‘ y/wVH - 


(5.16] 


After several iterations the cost function converges near some 
small value. At this point the parameters of Equations [5.6] and [5.7] 
have been modified to obtain their most likely value which results in 
the best fit of the measured states. 

The following inputs and modifications were made to the MMLE 
method, allowing effective use of the technique on the MINC 11/03 
computer. 

Initial estimates of the derivatives in Equations [5.6] and [5.7] 
were obtained using the analytical methods of Reference 25. Although 
the MMLE technique does not require accurate knowledge of these 
derivatives, this prodecure does speed convergence. 

A diagonal multiplying factor allows control over how large a 
change is made to the derivatives after each iteration. Too large 
a value of this factor causes sluggishness in the convergence, and 
too small a value will cause divergence. This factor was set equal 
to 1.0 for all cases analyzed. This was found to be acceptable. 

The weighting matrix, [D], of Equation [5.11], was chosen after 
analysis of the instrumentation error magnitudes. The first run 
through the MMLE program, with measurements from this instrumentation 


From Reference 5 
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package, provided a weighted error for each measurement state. As 
suggested in Reference 5, the values for the weighting matrix were 
chosen to attempt to equalize the weighted errors. After the values 
for the weighting matrix were chosen for the instrument package, 
they were then left at this for further maneuver analysis. 

5.2.4 Time History Plotting 

The MMLE method not only produces the estimates of the coef- 
ficients but also calculates the estimated time histories for the 
various states. These data are stored on the data disk for plotting 
by this routine. Appendix A. 8 contains the listing for this program. 
The graphs produced are good visual indications of the goodness of 
the estimated model coefficients. 

5.2.5 Summary Coefficient Plotting 

For presentation of the results of many cases which have been 
run at many flight conditions, the estimated derivatives are plotted 
as functions of lift coefficient. This is an interactive program 
that plots lift coefficient, estimated derivative, and confidence 
level. Once these values are input, the computer plots the value 
and loops back to input more data. 
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6. KU-FRL FLIGHT TEST PROGRAM 
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This section describes the Phase III flight tests conducted 
on the University of Kansas Cessna 172 airplane. Discussed are 
instrumentation system installation and calibration, weight and 
balance calculations, aircraft certification, flight test proce- 
dures, a description of the typical flight test maneuver, and the 
results of the flight tests. 

6.1 System Installation and Calibration 

Installation of the instrumentation system required approximately 
eight man-hours. This included the requisite removal of oil and dirt 
accumulations from the bottom of the aircraft, surface preparations 
for the external transducers, installation of the external transducers, 
cockpit modifications, and internal hardware Installation. The control 
position transducers (CPT's) required installed calibrations, which 
took approximately three man-hours to complete. The CPT's were located 
such that maximum control surface deflection caused the largest possible 
potentiometer variation. The aileron and elevator CPT's were cali- 
brated using an Inclinometer to measure the angular deflections while 
observing the outputs through the data acquisition system. Similarly, 
the rudder was calibrated using a KU-FRL-developed protractor for 
measuring angular position. 

In preparation for mounting the external transducers, the aircraft 
was thoroughly cleaned, first with commercial degreaser and then with 
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isopropyl alcohol, in Che regions of Che transducers, and also in 
Che regions of Che wiring runs. The Cransducer wires and Che CoCal 
pressure Cubing were routed along Che oucside of Che aircrafc Co 
an inspeccion hole in Che belly of Che aircrafc. They were secured 
and faired co Che aircrafc skin wich ducc cape. 

The crausducers were mounced wich 3M-4265 Cape, as discussed 
in ChapCer 3 and Reference 3, and faired wich ducc cape. Figures 
6.1, 6.2, 6.3, and 6.4 show Che relacive locacions and inscallacion 
details of Che elevacor and rudder CPT's, the aileron CPT, Che 
picoc pressure Cube, and the total temperature sensor, respectively. 
Figure 6.5 shows Che static cone location and inscallacion. Figure 
6.6 shows Che cable and Cube routings into Che jrvjpection hole. 

Inside Che aircrafc, Che sensor lines entered through a 
matched inspection hole in the cabin floor (Figure 6.7) and were 
routed Co Che transducer package (Figure 6.8). The carpeting from 
the center cabin floor was removed to simplify the cable roudng. 

The Cransducer package was mounted solidly to the pilot's and co- 
pilot's seat Cracks, on the aircrafc centerline, as shown in Figure 
6.9. This pallec was attached Co Che seat Cracks using four C- 
clamps. 

To facilitate the installation of the battery box, computer 
box, voltage regulator package, and filter package, the rear seat 
of the airplane was removed. Figure 6.10 shows the location of 
the above components. The packages were secured using seatbelts 
and a rope passed through existing cargo hold-downs in the cabin. 
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Figure 6.6 Cable and Tube Installation Details (Outside) 
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Figure 6.9 Installed Transducer Package (Oblique View) 
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6.2 Weight and Balanct 


Tho basis for the weight and balance calculations performed for 
this flight test program was an Aircraft Weight Record for the air- 
plane (a 1976 Cessna 172M, N12800). This Weight Record, made on 
3 February 1981, was done at Cessna Aircraft Company, Pawnee Division. 
The aircraft empty weight and moment are shown In Table 6.1. The 
component weights of the Instrumentation system, pilot, flight engi- 
neer, fuel, and oil and their respective moments are also given in 
Table 6.1. The total aircraft weignt and moment are found to be well 
within the Standard Category loading envelope, as shown in Figure 
6 . 11 . 

It was also necessary to locate the vertical and lateral positions 
of the center of gravity. For the vertical c.g. location, the air- 
craft was weighed in the level flight attitude and in a nose-up and 
a nose-down attitude. The intersection of the lines perpendicular to 
the ground and passing through the longitudinal c.g. located the 
vertical position of the c.g., as illustrated in Figure 6.12. The 
lateral position was computed directly from the difference in the 
main gear reactions. The aircraft was weighed with full fuel, the 
instrumentation system, and the flight crew on board. 

The alzcraft inertias, as given in Table 6.2, were taken directly 
from Reference 3 data. Also shown in Table 6.2 are some of the 
pertinent geometric data for the Cessna x72. 
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Table 6.1 Test Airplane Weight and Balance Record 



Weight 

Arm 

Moment 

Empty A/C 

1423.6 

39.2 

55805 

Pilot (Shane) 

180 

34 

6120 

Engineer (Clarke) 

205 

34 

6970 

Fuel (full usable) 

228 

*7.8 

10900 

Oil (7 qt) 

13 

-13.3 

-173 

■Rear seat 

-22 

79.5 

-1749 

Battery box 

61.3 

73 

4475 

Computer box 

37.3 

73 

2722.9 

Voltage reg. box 

9-23 

61 

563 

Transducer box 

17.0 

46 

782 

Filter box 

5.9 

46 

270.5 

Cables i pilot control box 

— 

negligible — - 



Z„ - 2158 
w 

lb; I ■ 86686 in 

Pi 

lb 


c.g. ■ 40.2 


According to Cessna Loading Charts found in KU-FRL-407-2, 

this loading falls exactly on top of the point marked "FULL FUEL." 

For the empty fuel condition, 

- 1930.3 lb 
w 

Z M - 75786.4 in lb. 

These fall within Utility Category Loading Envelope. 




LOADED AIRCRAFT WEIGHT (POUNDS) 



LOADED AIRCRAFT MOMENT/IOOO- (POUND-INCHES) 













Table 6.2 Test Airplane Inertia and Geometric Data 


Wing area (S) 

174 ft 2 

Wing span (b) 

35.8 ft 

* 

Inertias 


I 

1029 slug ft 2 

XX 


I 

1891 slug ft 2 

zz 


I 

0 slug ft 2 

xz 


I 

1092 slug ft 2 

yy 


Weight 

2098 lb 

Mass (m) 

65.21 slugs 

Mean geometric chord (c) 

4.9 ft 

Center of gravity (Fuselage Station) 

40.0 inch 


Taken from Reference 3 
6. 3 Aircraft Certification 

The attachment of the external transducers, and the aircraft 
flight test loading (which required the removal of the rear seat), 
required the airplane to be recertified in the Experimental Category 
for the duration of the flight test program. 

Following the installation of the system, an inspector from 
the Kansas City FAA Engineering and Maintenance District Office 
(EMDO) checked the hardware installation, weight and balance statement, 
and received assurance that no flight test maneuver would be performed 
outside the manufacturer's flight envelope for the airplane. The 
inspector was supplied with a copy of the Flight Test Instrumentation 
Certification Report (Reference 27) , which completely detailed the 
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external hardware and the methods of attachment, and the weight 
and balance statement. The inspector then issued an Experimental 
Category Airworthiness Certificate and a set of operating limitations 
for the aircraft. 

After the removal of the instrumentation system, an annual (or 
100-hour) inspection of the airplane was performed, and the FAA 
inspector returned, re-examined the airplane, and restored its 
Standard Category Airworthiness Certificate. The FAA was extremely 
cooperative in working with the KU-FRL in this and past programs. 

6.4 Flight Test Procedures 

For the actual flight tests, a set of checklists and flight 
eards was prepared to ensure consistent test procedures. The check- 
lists are shown in Figure 6.13 and were used in conjunction with 
the aircraft checklist for each flight. 

The flight cards, samples of which are shown in Figure 6.14, 
were used to provide a standard data-taking format for the pilot or 
flight engineer. Some of the parameters recorded were: 

• Aircraft weight and c.g. 

• Ambient temperature 

• Voltage outputs of the control position transducers 
at maximum control deflections both before takeoff 
and after landing 

• Sample rate 

• Time of day, pressure altitude, and indicated airspeed 
before each maneuver 

• Type of maneuver, and any comments on the maneuver. 
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FLIGHT TEST CHECKLIST 

BEFORE TAKEOFF ; 

TANKS TOPPED 

TAPE IN, WRITE-PROTECT OFF 

CONFUTE REQUIRED TEST POINTS 

ENOUGH DATA SHEETS? TAFES7 

BATTER I E5 ON, VOLTAGE REGULATORS ON 

VERIFY ALL GYROS CONE UP NORMALLY 

INITIALIZE PROGRAM (10/20 SPS) 

INITIALIZE TAPE, VERITY RUN FUNCTION 

GUARD THE "CLOSE C REWIND TAP£" SWITCH 

CHECK ALL POSITION TRANSDUCERS FOR 
FUNCTION AND NOTE LIMIT VALUED VOLT- 
METER OFF. 

NOTE OAT, LOCAL BARO, ENGINE START TIME, 
TAKEOFF WEIGHT AND MOMENT, SAMPLE RATE 

RECORD STATIC DATA BEFORE TAKEOFF 

RECORD TIME OF TAKEOFF 


PAGE TWO 


BEFORE MANEUVER ? 

CHECK THAT ALL TRANSDUCERS FUNCTION 
WITH VOLTMETER. VOLTMETER OFF. 

GUARO THE "CLOSE t REWIND TAPE" SWITCH 

TAKE STEADY-STATE DATA; VERIFY TAP! 
MOVEMENT 

BET ALTIMETER TO 29.92; CHECK LOCAL 
ALTIMETER SETTING WITH IIXD 

RECORD ALTITUDE, AIRSPEED, TIME, 
MANEUVER TYPE AND SEQUENCE, OTHER DATA 
AS REQUIRED 


CHECK TAPE LENGTH PERIODICALLY 


PAGE THREE 


BEFORE SHUTDOWN : 

TAKE STATIC DATA 
RECORD OAT 
RECORD TIME 

NOTE ANY ALTIMETER SETTING CHANGE 

NOTE POSITION TRANSDUCER VOLTAGES 

CLOSE OUT TAPE, WRITE-PROTECT 

VOLTAGE REGULATORS OFF, BATTERIES OFF 

VOLTMETER OFF 

AIRCRAFT AND PILOT LOGS 

RECEIPTS 

TOP TANKS, RECORD FUEL USED 


Figure 6.13 Flight Test Program Checklists 



'LIGHT: DATEl**Wfcei TACH: ^ ^ 


<l«* W* 

TAKEOFF WEIGHT; 

OATt MM 

°F 

TAKEOFF TIME: It 2© C$T 

LOCAL ALT 1 HUE A; to.12 

TAKEOFF FUEL; 29 GAL 

ENGNA WGT : 

lO*> L« 

POSITION TRANSDUCER VOLTAGES: 

OUT 

IN 

ELEVATOR: j£‘ N . 

- 

♦ .o*)o 

- *»**© 

AILERON: ki C hT: 

RUDBtR: M GHT ; 

♦ Oil 
— t.Te*» 

♦ *.77 t 

-M.743 

SAMPLE RATE: (7^ 20 SPS 

LANDING TIME : \t :Zc CST 

LANDING LOCATION: 

FUEL USED : ft 1 ^ GAL 
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Figure 6.14 Flight Test Program Flight Cards 

A typical flight began with installing the onboard packages 
(batteries, transducer package, voltage regulators, filters, and 
computer) and starting the system (before engine start) to verify 
that the gyros erected properly. Then, before takeoff, steady-state 
data were taken and the tape drive cycled. Once airborne, all trans- 
ducers were excited and output voltages checked for proper trends. 

The aircraft was flown to an altitude with little or no turbulence 
(to minimize turbulence noise in the data) and trimmed to the desired 
flight condition. Attempts were made to duplicate the flight condi- 
tions (airspeeds and lift coefficients) of the Reference 4 flight 
tests. Once trimmed and stabilized, steady-state data were taken 
for approximately 3 seconds and then the maneuver was initiated. 

or? r - • 

OF PCOk quality 
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When completed, the controls were held fixed; and data were recorded 
for b to 10 seconds more. Then the next flight condition was set up 
and the next maneuver flown. 

6.5 Flight Test Maneuver 

The analysis of 'light test data with the MMLE process utilizes 
dynamic maneuvers. The important factor with the MMLE process is 
to excite all aircraft modes if all parameters are to be estimated 
with high accuracy. 

The standard maneuver chosen for this series of tests was a 
2-3-1 input suggested by NASA as being a good equal-energy input 
that could be easily flown. Further consultation with NASA-DFRF 
indicated that experience had shown that the maneuver itself was 
fairly noncrltical; ^he maneuver was very forgiving and allowed much 
deviation from exact step inputs. The KU-FRL flight tests also indi- 
cated that to be essentially true. This is further discussed in the 
next chapter. 

The longitudinal input was nominally a 2 seconds back, 3 
seconds forward, and 1 second back yoke input of about 10 degrees 
maximum control surface deflection. 

The lateral-directional input was a nominal 2-3-1 aileron 
input with a symmetrical 2-3-1 rudder input, which had its 2-second 
segment superimposed on the 1-second aileron input. 

Variations on the standard maneuvers included an antisymmetrical 
lateral input and long sample times to record the entire phugoid 
and spiral modes. The antisymmetrical input was a left-right-left 
aileron input coupled with a right-left-right rudder input. 
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6.6 Flight Test R«»ult» 




Table 6.3 Longitudinal Stability and Control Derivative Summary 
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Table 6.4 Lateral-Directional Stability and Control Derivative 



r * t e s r $ s ^ 5 * 

»? >© © C — *a © am -t am re 

© — As — ^ ©AM AM lA ©Cm As — 

e # c c e c S - 


o «n *-•# ■# am — a* — e « •* r * P«c *• **■ 

c* * * . — . #e • C • ^ ** . j» ■ 

*> »** a. * x ^ — © * * c* *a r * "■ a. e f. " 

2> g* gs £ * i - % rt E~ c' 



O © © © »n © <£ a- we o — am O' a* la © — « rw © ^ ■# £ ^ I £ "T }g •) £ 

C <f — ** * *# ® d P' d ? — 3 — 'S d © • C in a , 1 » n H g g g d g £< 


ss sc sc sc sc s: 

^ o o e © o 


> m 1 o ^ I o • 


8 — — IN a. a. CM IN O' N CO© ©lA lA O 

• LA.C*fN*A.LA*Ce. CM . 

f «A 4 4 -# fA Ox CM * — © C* X> AM fA 

ssslissis 


O' AM l{ N — < 

8 S S 8 


«l» »N — — 

see 


f'*«**c<i<r^.»£.f-..£ : .r-.tt- — .>£.C'rM.cr.CM.»o.fN. 

© lA O •*• — O C WT BP*# A. lA «# lA © — c N C~ IA LA© A O •# CM O' lA »C AM pN A Am — 

g~ S" g- g- g- 3 - i- s- c ■* s- 82 g£ 8 - e- 2 ” 8 " S " 


|A»A (AN Kff #nUN N# 


1 22 2-* 8® S". £-. g~ S 1 '! 

r n n Le ir «o o n*. m #a .# © .# 4 a 



■# — O' 00 ©AM N A © A' p A. *£ MP O' © A*© QC # 00 am © — £ * ©>»A *f *A 

AA (AN N N Of* tm . A IN re CM — re O'* N N O' CM A A « AM LA CM LA 


I A OW e« OO «' 


2 S'? 22 be *: \$+. s°: 


<? ? f ? 


OA «c N ok o A 9> c<« Oi 

la • I CM • [ — . 1 CM * | — • ] — *1# • I N . | CM • I BP • O • AC * *A • As . A* • • As • 

*9 kA 0CN A# N^ #lflhrA O'NM , 'A <Pff' AfM <# fA lClC a N A # A § AM*# As lA 

lAA MlA AA rs^ Ap< NH lA«( ^C HO — © «M fs. A |M # « * A m* AM# 

© I C 1 © -A I © | O I— I*- { I © I © *-M © — © eM *A © © 

© © © © o o o e 


m6mn a«m «n «n »n NO n9> 


LA O' O'© *#©> 00 xC *# •# AM *# # •# A » ©© W N r~\ lO am # A. O' AM AM© As O A- 

A M • « a #A • ^ • (A , lA.Ji. fA*C.B 0 *'£*©*aS»^* * * 

r* o As.*- LA® AMM AM O' IAIA tA «-M •# sf ©AS qc© AMAs OiA LA* ©fA © ® CAM •# *M 

AN = PA CM »H ©AM ©O AM- 0*0 © '2>. — »A 5 + = CA © ® «- — « ^ ©# 5s# AM — 

O O © © — © © © © O © O O AM © © © *’ C C 

^dddd^do^ddddd^^d 


AM S# © »A ® 

A** • vC * O' • 

*# LA lA lA 00 # 


8 — A A lAA. ® A. MP — **» LA AM 

. cn * ® . A- • O' • — • — .LA. 

«»A •# # ©<# m .# >c .# — #> m 0 am O'fA 


• O' © MA 
! AM O LA 



®<-> AC O <r © re *# 00 AM OtA — O' — © AM AM — © A n re re © O lA A. « a. ©® 

Lye. — . — lA. — *©*©.'£ *iA* 0 »AM* — . As . Am * ® • © * 

lC ia o *a —la ^ a sC re lAs» ©•# O.# a # ** •* — •# N a — re — la *#l ©•# lC^ 

SS8SS8SSSSSSSSS8S 


o* ©*^ #l0 o© o® AMO LC — kA CM «# s# O® AM© ^re r^re in® ©a^ — cm 

. •lA*©*«.®.lA.O«C*'*e*iA*lA. AM* ©•©• A . C I / I 

<0 cere re — i/> lC e a O cm asO re ce MD re re in *#ce s£»© « n ©k© — lA ©^ 

:S 8” 8 N 3 8 S~ g2 S N SS 8" 8" S" 3* 8S 3 ' S~ S" 



/ nond iraens ional moment arm. Data sample rate Is 20 SPS. 

(Nondimensional moment arm * 0.35.) 

top value is the derivative 
lower value is the Cramer Rao bound 



































































































































































































































































































Figure 6.16 Typical Lateral-Directional Flight Time History Comparison 
(Run 2A-4) 
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7. CONCLUSIONS 


The flight test system that has been designed, developed, and 
evaluated in three separate flight test programs has consistently 
met the following objectives: 

• It is easy to install. 

• It is self-contained. 

• It is s Ample to operate. 

• The flight test program requires no complex flight 
maneuvers . 

• The system has shown that it is applicable to general- 
aviation-class airplanes. 

• The system is capable of longitudinal and lateral- 
directional stability and control parameter estimation. 

• The system has proven to be low in cost when compared to 
other systems of this sophistication and capability. 

In the analysis of flight test data, the MMLE method is capable 

of estimating all parameters in the vector differential equation 

[5.5]. These estimated parameters are body axes dimensional stability 

and control derivatives which can be converted to nondimens ional format 

using Tables 5.2 and 53. They can be expressed in stability axes 

using the equations of Appendix C. 

Some of the flight test work from 1 hase III has shown that relative 

to the earlier phases the acceleration derivatives — i.e., C z and 

6 E 

C« — were better predicted in the earlier tests. The basic differ- 
S R 

ences in data were insignificant with the exception of the sharpness 
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of the step control inputs. This is evidenced by the angular accel- 
erations which in the earlier work were twice the value of those in 
Phase III. This has led to some recommendations about the flight 
maneuver for these types of flight testing. 

The basic 2-3-1 step input has proven to be an easy maneuver to 
fly and a relatively good maneuver for getting reasonable estimates of 
the stability and control derivatives. For good estimation of all 
control derivatives, the step inputs should be sharp and well-defined 
within the operational flight load envelope of the airplane. To 
assure accurate estimation of the long period dynamics of the airplane 
math model, the time histories need to include at least one fu.’.l 
oscillation of these dyramic modes. 

The 20-sample-per-second data rate, which was tested in 
Phase III, was not found to give significantly better estimates 
than the 10-sample-per-second rate. It may be found tha with the 
sharper step inputs an improvement due to the higher data rate may 
be .tot iced. 

Recommendations for modifications and uses of this flight 
test package are made in Chapter 8. 

The total system component cost can be broken into three costs: 

(1) cost of ground-based computer system, $25,000; 

(2) cost of flight test instruments, $12,000; and 

(3) cost of data management computer, $2,000. 

These costs Co not include the money spent for system construction. 
These costs are believed to be lower than similar system costs. 
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The cost of one ccmmercially available system with similar (or 
greater) capabilities was $24,000. This svstem consisted of the 
following components: 

(1) Sealed Cartridge Recorder with controller 

(2) 8-bit computer with an RS232 interface 

(3) 32-channel, 12-bit analog-to-digital conversion module. 

The system met the following military specifications: MIL-E-4158, 

MIL-E-5400, and MIL-E -16400. 
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8. RECOMMENDATIONS 

The recommendations made In the Phase II report concerning 
equipment , calibration procedures, and data reduction techniques 
have largely been Incorporated into the present system. Some further 
refinements in the size of the computer package are still possible. 
The use of a pendulum for calibration of the entire system has 
increased the system accuracy as well as reduced the Cram&r-Rao 
bounds of the estimated parameters. Some further recommendations 
about the system are: 

* A new, more accurate airspeed and altitude sensor 
should be acquired. 

* Maneuver inputs should be examined in more detail 
to see the effects upon estimated parameters. 

* Limits for the applicability of the estimated math 
model should be tested. In particular the applicability 
could be tested in level turns or other high "g" flight 
conditions. 

* Some form of quick look capability should be incorporated 
into the system to improve the efficiency of remote site 
operations. 


107 




VMS. ■ 




PRECEDING PAGE BLANK NOT FILMED 


9. REFERENCES 


1. Renz, R. R. L. ; Clarke, R.; Robkam, J.s "A Literature 
Survey of Performance and Stability Flight Testing.' 1 
KU-FRL-407-1, University of Kansas Flight Research Labora- 
tory; Lawrence, Kansas; 1979. 

2. Renz, R. R. L. ; Clarke, R. ; Hill, J. R. ; Mosser, M. ; 

Roskam, J.; Rummer, D. I.: "Progress Report on Phase I: 

Development of a Simple, Self-Contained Flight Test Data 
Acquisition System." KU-FRL-407-3; University of Kansas 
Flight Research Laboratory; Lawrence, Kansas; 1980. 

3. Renz, R. R. L. ; Roskam, J.; Rummer, D. I.: "Progress Report 

on Phase II: Development of a Simple, Self-Contained Flight 

Test Data Acquisition System." KU-FRL-407-6, University of 
Kansas Flight Research Laboratory; Lawrence, Kansas; 1981. 

4. Suit, W. T. ; Cannaday, R. L. : "Comparison of Stability and 

Control Parameters for a Light, Single Engine, High-Winged 
Aircraft Using Different Flight Test and Parameter Estimation 
Techniques." NASA Technical Memorandum 80163, 1979. 

5. Main, R. E.; Iliff, K. W. : "A Fortran Program for Deter- 

mining Stability and Control Derivatives from Flight Data." 
NASA TN D-7831, 1975. 

6. Gainer, T. C. ; Hoffman, S.: "Summary of Transformation 

Equations and Equations of Motion Used in Free-Flight and 
Wind-Tunnel Data Reduction and Analysis." NASA SP-3070, 

1972. 

7. Gerlach, 0. H. : "High Accuracy Instrumentation Techniques 

for Non-Steady Flight Measurements." In Perry, M. A., ed. : 
"Flight Test Instrumentation," Vol. 3, Pergamon Press; 1964. 

8. Gerlach, 0. H. : "Determination of Performance, Stability, 

and Control Characteristics from Measurements in Non-Steady 
Maneuvers." Stability and Control, AGARD Conf. Proc. No. 17, 
pgs. 497-523; 1966. 

9. Gerlach, 0. H.: "Measurements of Performance, Stability and 

Control Characteristics in Non-Steady Flight with a High Ac- 
curacy Instrumentation System." In Perry, M. A., ed.: 
"Aerospace Instrumentation," Vol. 4, Pergamon Press; 1966. 

10. Gerlach, 0. H. : "The Application of Regression Analysis to 

the Evaluation of Instrument Calibration." Flight Test 
Instrumentation, AGARD Conf. Proc. No. 32; 1967. 


109 


11. Gerlach, 0. H. : "Determination of Performance and Stability 

Parameters from Non-Steady Flight Test Maneuvers." SAE Paper 
0700236, 1970. 

12. Gerlach, 0. H.s "The Determination of Stability Derivatives 
and Performance Characteristics from Dynamic Maneuvers." 

Report VTH-163; Delft University of Technology; Delft, 

The Netherlands; 1971. 

13. Hosman, R. J. A. W, : "A Method to Derive Angle of Pitch, 

Flight Path Angle and Angle of Attack from Measurements in 
Non-Steady Flight." Report VTH-156; Delft University of 
Technology; Delft, The Netherlands; 1971. 

14. Hosman, R. J. A. W. s "Advanced Flight Test Instrumentation: 
Design and Calibration." Memorandum M-222; Delft University 
of Technology; Delft, The Netherlands; October 1974. 

15. van Woerkom, K. : "Design and Evaluation of an Instrumentation 

System for Measurements in Non-Steady Symmetrical Flight Con- 
ditions with the Hawker Hunter MK VII." Report LR-308; 

Delft University of Technology; Delft, The Netherlands; 1981. 

16. Iliff, K. W. ; Main, R. E. : "Practical Aspects of Using a 

Maximum Likelihood Estimation Method to Extract Stability 
and Control Derivatives from Flight Data." NASA TN D-8209; 
1976. 

17. Iliff, K. W.: "Estimation of Aerodynamic Characteristics 

from Dynamic Flight Test Data." Dymamic Stability Param- 
eters, AGARD Conf. Proc. 0235; 1978. 

18. Iliff, K. W. ; Maine, R. E.; Montogomery, T. D.: "Important 

Factors in the Maximum Likelihood Analysis of Flight Test 
Maneuvers." NASA TP 1459, 1979. 

19. Iliff, K. W.; Maine, R. E. : "NASA BONES." NASA Dryden, 

unpublished computer program. 

20. Klein, V.; Gregory, R. : "A Proposal for Self-Contained 

Instrumentation System for Flight Research on Stability 
and Control." Report CIT-FI-72-013, Cranfield Institute 
of Technology, March 1972. 

21. Smetana, F. 0.; Fox, S. R. : "Flight Test Evaluation of 

Predicted Light Aircraft Drag, Performance, and Stability." 
NASA CR-158076, 1979. 

22. Sorensen, J. A.; Tyler, J. S.; Powell, D. J.: "Evaluation 

of Flight Instrumentation for the Identification of Stabil- 
ity and Control Derivatives." AIAA Paper 72-963, September 
1972. 


110 


23. Eckholdt, D. C. ; Walls, W. R. : "A Survey of AFFDL Parameter 

Estimation Efforts and Futura Plana." Parameter Estimation 
Techniques and Applications in Aircraft Flight Tasting, 

NASA TN D-7647, 1973. 

24. Mace, W. D.; Pool, A. (editors): "Flight Test Instrumentation 

Series." AGARD No. 160, Vols. 1*8; 1973 to 1977. 

25. Roskam, J.: "Airplane Flight Dynamics and Automatic Flight 

Controls." Roskam Aviation and Engineering Corporation, 

Route 4, Box 274, Ottawa, Kansas; 1979. 

26. Renz, R. R. L. ; Mossar, M. A.: "Digital Tape Qualifying 

Procedure for KU-FRL Instrumentation Package." KU-FRL- 
407-5, University of Kansas Flight Research Laboratory; 
Lawrence, Kansas; 1981. 

27. Renz, R. R. L. : "Flight Test Instrumentation Certification 

Report." KU-FRL-407-2 , University of Kansas Flight Research 
Laboratory; Lawrence, Kansas; 1980. 

28. Wuest, W.: "Measurements of Flow Speed and Flow Direction 

by Aerodynamic Probes and Vanes." AGARD Conf. Proc. 32, 1967. 

29. Ikhtiari, P. A.; Marth, V. G. : "Trailing Cone Static Pres- 

sure Measurement Device." Journal of Aircraft, Vol. 1, 

No. 2, pgs. 93-94; March 1969. 

30. Lewis, J. R. : "TRS-80 Performance, Evaluation by Program 

Timing." Byte Magazine, pgs. 84-94; McGraw-Hill; New York; 
March 1980. 

31. Renz, R. R. L. : "Calibration of MDAS-16 Analog-to-Digltal 

Converter." KU-FRL-407-4, University of Kansas Flight Re- 
search Laboratory; Lawrence, Kansas; 1981. 


Ill 


,,in c: ; g i-’A'-iE funm p/oT rfiMFD 

10. KU-FRL INSTRUMENTATION SYSTEM REPORTS 


KU-FRL Number 
KU-FRL-407-1 

KU-FRL-407-2 

KU-FRL-407-3 

KU-FRL-407-4 

KU-FRL-407-5 

KU-FRL-407-6 

KU-FRL-407-7 
(present report) 

KU-FRL-407-P1 

KU-FRL-407-P2 

KU-FRL-407-P3 

KU-FRL-407-P4 


Title Date 


A Literature Survey of Performance and 1979 

Stability Flight Testing 

Flight Test Instrumentation Certification 1980 

Report 

Progress Report on Phase Is Development 1980 
of a Simple, Self-Contained Flight Test 
Data Acquisition System 

Calibration of MDAS-16 Analog-to- 1981 

Digital Converter 

Digital Tape Qualifying Procedure 1981 

for KU-FRL Instrumentation Package 

Progress Report on Phase II: 1981 

Development of a Simple, Self-Contained 
Flight Test Data Acquisition System 

Progress Report on Phase III: 1982 

Development of a Simple, Self-Contained 
Flight Test Data Acquisition System 

Development of a Simple, Self-Contained 1980 


Flight Test Data Acquisition System 
(Paper presented at Society of Flight 
Test Engineers, Atlanta, Georgia) 

A Microcomputer Based Data Acquisition 1980 

System for Use in Flight Testing of 
General Aviation Airplanes 
(Paper presented at IEEE Mid America 
Electronics Conference, Kansas City) 

Development of a Simple, Self-Contained 1981 

Flight Test Data Acquisition System 
(SAE Paper 810596, presented at Business 
Aircraft Meeting & Exposition, Wichita, 

Kansas, April 7-10) 

Data Acquisition/Reduction System for 1981 

Flight Testing General Aviation Aircraft 
(Paper presented at ISMM conference, 

San Francisco, May 20-22; in International 
Society for Mini and Microcomputers 
publication ISBN 0-88986-026-2) 
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PRECEDING PAGE BLANK NOT FILMED 


APPENDIX A 
COMPUTER PROGRAMS 


This appendix contains listings of the programs and subroutines 
used in the flight test system. Each listing is preceded by a brief 
description, a flow chart (when needed for clarification), and pro- 
gramming notes that explain conventions used and point out items needed 
for a better understanding of the operation of the nvograms. 


A.l AIM-65 EPROM PROGRAMS 

A. 2 MINC DATA TRANSFER (AIM-65 TO MINC) 

A. 3 MINC QUICK LOOK DATA PLOT (CRT GRAPHICS) 

A. 4 MINC ENGINEERING CONVERSION 

A. 5 MINC INSTRUMENTATION CALIBRATION 

A. 6 MINC MMLE SET-UP 

A. 7 MINC MMLE PROGRAM (NEWTON) 

A. 8 MINC TIME HISTORY PLOTTING (HARD COPY OUTPUT) 

A. 9 MINC PLOTTER LIBRARY ROUTINES (FOR HP 7225B PLOTTER) 
A. 10 MINC TIME HISTORY PLOTTING (CRT GRAPHICS) 

A. 11 MINC DATA TRANSFER (MINC TO MAINFRAME COMPUTER) 

A. 12 DATA ERROR CORRECTION 

A. 13 MINC SUMMARY DERIVATIVE OUTPUT 


A. 1) Alii 


ROM PROGRAMS 


Description: This program consists of an executive that performs 

variable initialization and activates one of the four modes of the 
program. The EPROM is placed in the AIM-65 in the location normally 
reserved for the BASIC interpreter ROM. The monitor routines provide 
two entry locations used to start initialization of the variable and 
either the 10 samples per second (SPS) data acquisition program or 
the 2C SPS program. Once the initialization is complete, the 3 special 
function keys provide linkages to the data recovery program, the MDAS-16 
direct readout program, and the 100 SPS data acquisition program. 

Program 10 OR 20 SPS DATA ACQUISITION 

Description: This AIM-65 program collects and saves the measured 

state time histories. Information is collected and stored on the cas- 
sette tape in blocks of 5 timepolnts (one-half or one-fourth seconds 
of data) . The data for each channel are coded as two binary eight-bit 
words totaling sixteen bits. The first word contains the eight moot 
significant bits. The second word holds the four most significant 
and the four least significant bits. This provides a redundancy check 
for the four highest bits of each measurement. 
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Program DATA RECOVERY 


Description: This program permits the AIM-65 to transfer the 

information recorded by the DATA ACQUISITION programs. The information 
is passed directly to the MINC through an RS-232 port. The data format 
is eight data bits with even parity. The data are dumped automatically 
at 9600 baud. 

Flowchart : 



Programming Note: This routine makes extensive use of the AIM-65 

monitor. The RS-232 data transfer is made to the ground based computer 
at 9600 buad with even parity. The baud rate is stored in memory locat- 
ions $A417 and $A418. Rockwell Application Note R6500 N08 lists values 
which change the transfer baud rate to other standard values. For com- 
puters that are unable to use this high transfer rate the baud rate can 
be lowered to an acceptable value. 
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CU _: < • '"*'- ,,J 

OF P0C5J QUALITY. 

Program MDAS-16 CALIBRATION 

Description: This program provides a means of looking directly 

at the digitization of analog inputs. Linearity and offsets can be 
determined for calibration of the MDAS module. The program also 
permits the calibration of steady state instrument outputs in direct 
digital fashion. 


Program 100 SPS DATA ACQUISITION 

Description: This program performs like the 10 or 20 SPS DATA 

ACQUISITION program. The data are collected much faster than they 
can be recorded on tape. To overcome this problem, the data buffer 
has been expanded to almost 12K RAM. This provides about 3.7 seconds 
of buffer space for data. 

Listing: 


•■0000 

THE UNIVERSITY OF KANSAS FLIGHT RESEARCH LAG 
PROJECT 4070 GOG CLARKE 
»«**** AIM-6S CLOCK SPEED MEASURED AT 999657 HZ 

TIMING LOOPS REFLECT THIS SPEED FOR INCREASED 
!«**«• ACCURACY TEST RUN ON 3-N0V-B1 GY GOG CLARKE 
(««(** PROGRAMS IN EPROM: 
l*M«* I) INITIALIZATION 

»«•«** 2) 10 OR 20 SPS DATA ACQUISITION 

3> DATA RECOVERY (AUTO-TRANSMISSION TO NINO 
•*»*»* 4) MDAS-16 VOLTAGE OFFSET /LINEARITY CALIBRATION 

1**1 ** S> 100 8P6 DATA ACQUISITION FOR TRANSDUCER CAL I DRAT 

I PAGE ZERO VAR 
■•0000 RNCNT-0 
•■0000 BLKCNT-2 
■ •0000 BUFCNT » 4 
■•0000 IBUF-6 
■■0000 0GUF»8 
■■0000 CNT»10 
-■0000 OCNT-12 
•■0000 TEMPO-14 
•■0000 TMP-16 
■■0000 MEM«1S 
■■0000 MEM1-19 
• ■*0000 MEM2-20 
-■0000 TIMEL-21 
•■0000 TIMEH-22 

IMDAS-16 REG 
■■0000 CLEAR-98000 
•■0000 SEG-98001 
—0000 MED-98002 
■■0000 LOW-98003 

•TEAC GUF 
—0000 GUF 1*9200 
■■0000 8UF2a|300 
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original ;s 

OF POOR ;fy 


ITEAC KEG 
•<•0000 D»R<*4*00S 

••oooo ndcmsoof 

••0000 CDRM900A 

• •0000 MDR0M900B 
••0000 Ct*«S900C 

••0000 C8RM900D 
••0000 XSRM900E 
••0000 MDR1M900F 

ITEAC COHOS 
•■0000 8R67«492 

• •0000 URT»4C1 
■•0000 UTHMC2 
■•0000 ERA»4C3 
■ •0000 RDL»4C4 
••0000 BLP-4C8 
••0000 6LE-4C9 
•■0000 REU-4CA 

ITEAC HAGS 
-•0000 E0IFLG-S02 
•■0000 FPT-404 
*•0000 NRDY-410 
•■0000 DBRE-440 

•KEYBOARD REG 
■■0000 KDRA2MA480 
••0000 KDDRA2«4A481 

• -0000 KDRB2*4A4S2 
■•0000 KDDRB2»%')463 

• INT VECT ADDRESS 
•■0000 VECTL-4A404 

• •0000 VLCTH»tA405 

•TIMER 

"•0000 UDRB-4A000 
••0000 UT1L-4A004 
■•0000 UT 1 CH*SA005 
••0000 UT2L-SA008 
■■0000 UT2H-4A009 
■■0000 UACR-4AOOB 
-■0000 UIFR-tAOOD 
•■0000 UIERMAOOE 

• HON I TOR LINKAGES 
■•0000 DAUDL-SA4 17 
•■0000 BAUDH«4A4 16 
••0000 STXYMA427 
—0000 DRD-SA800 
••0000 READH-4E93C 
■■0000 0UTPUTME97A 
-•0000 INALl»4E?93 
•■0000 0UTALL-4E9BC 
••0000 CRLFME9F0 
••0000 NUMA-4EA46 
••0000 N0UTMEA31 
— 0000 MEX»SEA7D 
—0000 PHXY-4EB9E 
••0000 PLXY-SEBAC 
—0000 DELAYMECOF 
—0000 RED1-SFE96 

IHX8C CONSTANTS 
■■0000 BXTS-420 


••0000 L0ADK*4£F 
••0000 RECK-fDF 
••0000 CL0SEK»4DF 
■*0000 TIME1H-I27 
••0000 T1ME1L-410 
••0000 CRMOD 
•■0000 L0ADC-44C 
—0000 READCM32 
—0000 CLOSEC* 443 


•■0000 

MtBOOO 

••BOOO 

I INITIALIZATION OF DATA SAMPLE RATE AND FUNCTION KEYS 


•ENTRY 

POINT t BOOO ( *3* 

KEY) IB 

10 

BPS 

SATA 

•ENTRY 

POINT SB003 < *6* 

KEY) IE 

20 

8PB 

SATA 

■•BOOO 

btartb 





4C13B0 

JMP 

INITIO 





•-B003 

INI 120 





A06A 

LDY 

♦H208P6-M0 





20C4B2 

J8R 

MESS 





A99F 

LDA 

•CS619F 





8313 

SI A 

TIMEL 





7961 

LDA 

•>4619F 





8316 

STA 

TIHEM 





4C20B0 

JMP 

INIT 





— B013 

INITIO 





A07A 

L T* Y 

♦Ml 06P8-M0 





20C4B2 

JSR 

MESS 





A93F 

LDA 

♦<SC33F 





8513 

STA 

TIMEL 





A9C3 

LDA 

♦>SC33F 





8516 

STA 

TIMEH 





1 


LOAD ACCOM WITH JMP 

INSTRUCTION 

— B020 

INIT 





A94C 

LDA 

♦ S4C 





8D0C01 

STA 

• IOC 





6D0F01 

STA 

• 1 OF 





8D1201 

STA 

4112 





A9EC 

LDA 

♦<DATREC 





8D0D01 

STA 

4 10D 





— B030 







A9B1 

LDA 

•VDATREC 





8D0E01 

STA 

410E 





A947 

LDA 

♦<MDASC 





8D1001 

STA 

4110 





A9B4 

LDA 

•>MDA8C 





8D1101 

STA 

♦ 111 





A9A6 

LDA 

♦<TRAN8C 





— B04 1 







8D1301 

STA 

4113 





A9B4 

LDA 

♦>TRAN6C 





8D1401 

STA 

4114 





• 

INITIALIZE BUAD RATE FOR 

TRANSFER 

A900 

LDA 

♦ 400 





8D17A4 

STA 

DAUZU. 





A925 

LDA 

♦423 





&D18A4 

STA 

BAUDH 






— *033 

* VARIABLE SAMPLE RATE DATA ACQUISITION 
AD0080 LDA CLEAR 
A992 LDA #SRST 
8D0B90 STA MDRO 
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ORKiSNAL »‘mGu it* 

of poor quality 


aoo: 

LDA 

• 1 

8D04A0 

6TA UTIL 

DOF 9 

DNE COMtU 

esoo 

STA 

RNCNT 

• • * 0 D D 


AD0C90 

LDA CSR 

AVOO 

L*A 

♦ 0 

A51 6 

LDA TIMEH 

2904 

AND #FP1 

8501 

STA 

RNCNT 4 1 

8D05A0 

STA UTJCM 

DOF 2 

DNE COMI'l 

•**063 



58 

CL I 

68 

PLA 

aqff 

LI* A 

• tFF 

1 MAKE ( DLKCNT » DLKCNT 4 1 ) > -] 

8DOA90 

STA CDR 

8D81A4 

STA 

KDDRA2 

A9FF 

LDA • tFF 

•■P 1 57 

C0MD2 

A900 

Ll*A 

• 0 

0502 

STA DLKCNT 

AD0E90 

LDA X8K 

0D83A4 

til A 

KDDRS2 

8503 

STA DLKCNT41 

2D00DF 

AND CCE 

8II0OA4 

STA 

KURA 2 

■■*0E9 

REC2 

FOFS 

DEO CCMD2 

AVCO 

LI* A 

• tco 

2025*1 

JSR OKEY 

60 

RTS 

e i' Ob ao 

STA 

UACR 

C9*F 

CMP tRECK 

*p- *r — 


■■*075 

START 

i»015 

*NE RECK 



A9 \ 2 

L*A 

#$12 

A504 

LDA DUFCNT 

••*160 

WAIT 

81*0*90 

STA 

MDRO 

C9A0 

CMF #140 

2063D1 

JSR WAITX 

A9CA 

IDA 

• REW 

DOF 3 

*NE REC2 

• ■D143 

WA1 IX 

2041*1 

Xk 

COM* 

E602 

INC DLKCNT 

60 

RTS 

A9CA 

LI* A 

♦ REW 

D002 

DNE REC1 

........ 


2041*1 

JSR 

COM* 

•* DCF A 




•■*004 

MAIN 

E603 

INC DLKCNT41 

■■*164 

WRITE 

A900 

L I»A 

• C 

•■*OFC 

REC1 

AD0D90 

LDA EBR 

8504 

STA 

DUFCNT 

2094*1 

JSR SWAP 

A9A4 

LDA #164 

2025*1 

JSR 

OKEY 

2064*1 

JSR WRITE 

BD0990 

STA Vlt'C 

C9EF 

CMP 

•LOADK 

4CE9*0 

JMP REC2 

A9C1 

LDA #WRT 

oof*’; 

*NE 

MAIN 

■■*105 

RECX 

8D0A90 

STA CDR 

A9 .A 

LK*A 

• RE W 

A504 

li*A DUFCNT 

A500 

LDA RNCNT 

2 41*1 

JSR 

COM* 

C9A0 

CMP #160 

20A3D1 

JSR WWORD 

■*094 



DOF A 

*NE RECX 

■•*176 


A9C9 

It* A 

♦ SLE 

A940 

LDA 1 $40 

A501 

LDA RNCN141 

2041*1 

JSR 

COMD 

8 DOE AO 

STA UIER 

20A3B1 

JSR WWORD 

•■*099 

main: 

2094*1 

JSR SWAP 

A502 

LDA DLKCNT 

2025*1 

JSR 

OKEY 

A9FF 

LDA MFF 

20A3*1 

JSR WWORD 

C9*F 

CMP 

• RECK 

■■*1 IS 


AS03 

LDA BLKCNT41 

F01* 

*EQ 

RECORD 

8502 

STA DLKCNT 

20A3*1 

JSR WWORD 

C9*F 

CM* 

♦CLOSER 

8503 

STA BLKCNT41 

AOOO 

LDY #0 

D0F5 

*< ? E 

MA1N2 

2064*1 

JSR WRITE 

••*187 

WRIUl 

••*0A4 

CLOSE 

E600 

INC RNCNT 

*108 

LDA (ODUF)sY 

A9C2 

LOA 

• NTH 

D002 

DNE RECX2 

20A3D1 

JSR WWORD 

2041*1 

JSR 

COM* 

E60 1 

INC RNCNT41 

CD 

INY 

A9C2 

LDA 

♦ LTH 

■ 122 

RECX2 

COAO 

CP Y #160 

2041*1 

JSR 

COMD 

4C99B0 

JMP MAIN2 

DOF 6 

DNE WR1TE1 

A20C 

LDX 

• 12 



■■D191 

WRIT £2 

••*0*0 

CLOSE! 



4C57D1 

JMP C0MD2 

A9C3 

LOA 

• ERA 

•■*125 

OKI Y 




2041*1 

JSR 

COMD 

AD82A4 

LDA KDRD2 



CA 

DEX 


48 

PHA 

••*194 

SWAP 

*0F8 

*NE 

CL0SE1 

A910 

LDA OTIMEIL 

A509 

LDA ODUF 4 1 

4C75B0 

JMP 

START 

8D08A0 

STA UT2L 

48 

PHA 




A927 

LDA •TIME1H 

A507 

LDA I DUF 4 1 




8D09A0 

STA UT2M 

8509 

STA 0SUF41 

••*0** 

RF COR* 

>■*133 

GKEY1 

68 

PLA 

A900 

LDA 

• 0 

ADODAO 

LDA UIFR 

8507 

STA 1 DUF 4 1 

8506 

STA 

I DUF 

2920 

AND •* 1 T5 

A900 

LDA #0 

8508 

STA 

ODUF 

F0F9 

DEO OKEY 1 

8504 

STA DUFCNT 

A902 

LDA 

• >HUF 1 

68 

PLA 

60 

RTS 

8507 

STA 

IDUF41 

CD82A4 

CMP KDRD2 



A903 

LDA 

•>DUF2 

DOES 

DNE OKEY 



8509 

STA 

ODUF 41 

60 

R7S 

■■PI A3 

WWORD 

A9* 1 

LDA 

• > I N T 



48 

PHA 

•«*oc* 





■■P1A4 

WWORD 1 

8D05A4 

STA 

UECTH 

■■*141 

COMD 

AD0E90 

LDA ISR 

A9*0 

LDA 

• ^ I NT 

48 

PHA 

2940 

AND ♦DDRE 

8D04A4 

STA 

VECTL 

AD0D90 

LDA csr< 

F0F9 

DEO WW0RD1 

A9C0 

t »*A 

• tco 

••*145 

C0MD1 

68 

PLA 

8D0EA0 

STA 

U1ER 

AD0C90 

LDA CSR 

8D0890 

STA DDR 

A515 

LDA 

timel 

2910 

AND #NRDY 

60 

RTS 


120 
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-■BIBO 

INT 


46 

PHA 


ADOOAO 

LBA 

UDRB 

1031 

DPI 

INTEX 

96 

TYA 


48 

PHA 


A404 

LBY 

BUFCNT 

A90F 

LDA 

#15 

850A 

STA 

CNT 

AD0180 

•■D1C1 

LDA 

SEW 

2060B1 

JSR 

WAIT 

■-B1C4 

ILOOP 

AD0280 

LDA 

MED 

9106 

STA 

< IBUF) tY 

AD0180 

LDA 

SEO 

ce 

INY 


AD0380 

LDA 

LOU 

9106 

STA 

(XBUF)'Y 

ce 

INY 


C60A 
— B1D5 

DEC 

CNT 

DOED 

BNE 

ILOOP 

AD0280 

LDA 

MED 

9106 

STA 

(IBUF)»Y 

ce 

INY 


AD0380 

LDA 

LOU 

9106 

STA 

(IBUF)rY 

ce 

INY 


8404 

--B1E5 

STY 

BUFCNT 

68 

PLA 


A8 

TAY 


■■B1E7 

INTEX 

AD04A0 

LDP 

UTIL 

68 

PLA 


40 

RTI 



I DATA RECOVERY AUTO-TRANSMISSION TO MINE) 

GENTRY POINT FROM # F1* KEY 

— B1EC DATREC 

A06A LPY #MTRANS-MO 

20C4B2 w SR MESS 

A992 LDA tO^^ST 

0DOD9O r TA hi»K0 

A900 LDA $$00 

8D0DA0 STA 'JACR 

■*B1FB MAINR 

20P2B2 JSR OCOH 

C94C CMP #LOADC 

F006 DEO MA1N2R 

20DED2 JSR XNVAL 

4CFBBI JMP MAINR 

*■0208 MAXN2R 

A912 LDA #$12 

8D0D90 STA MDRO 

A900 LDA #0 

850C STA OCNT 

850E STA TEMPO 

A9CA LDA #REU 

2088D3 JSR COM DA 

■■B218 

A9C8 LDA #SLP 
2088D3 JSR COMDA 


■*B21 D MAIN3 
20D2D2 J ; »R OCOM 
C952 CM? 4READC 
F017 DEW READ 
C943 CMP #CLOGI C 
F006 DEO CLOSER 
20DED2 JSR INVAL 
4C1DD2 JMP MAIN3 


*»D22E CLOSER 
A9CA LDA #REU 
2088B3 JSR COMDA 
A9CA LDA #RtU 
2088B3 JSR COMDA 
4CFBD1 JMP MAINR 


•■B23B READ 
2046D3 JSR RM K 
BOEE DCS CLOSER 
A502 LDA DLKCNT 
0503 ORA DLKCNT+ 1 
DOOA BNE SENDS 
A048 LDY OMRNCNT -MO 
20C4D2 JSR MESS 
■■B24B 

A500 LDA RNCNT 
2046EA JSR NUMA 
**B250 SENDS 

tRNCNT AND DLKCNT CAN BE SENT HERE 

•*B250 SENDB1 

A200 LDX 10 

**B252 CNVT 

BD0002 LDA BUFltX 

29F0 AND #$F0 

850E STA TEMPO 

E8 I NX 

BD0G02 LDA BUFltX 

29F 0 AND #$F 0 

C50E CMP TEMPO 

F003 DrO CNVT1 

■■B263 

20E4D3 JSR FIX 
**B266 CNVT1 
CA DEX 

BD0002 LDA BUFltX 
38 SEC 

7E0002 ROR BUFltX 
5E0002 LSR BUFltX 
2903 AND #$3 
18 CLC 

2A ROL A 

2A ROL A 

— B276 

2A ROL A 

2A ROL A 

850E STA TEMPO 

E8 I NX 

BD0002 I DA BUFltX 
290F AND #$0F 

050E ORA TEMPO 

0940 ORA #$40 

9D0002 STA BUFltX 
**B287 
E8 I NX 
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M Si 


BE5fci x 


"TBS 




OK.i(i:.\AL pass i f .» 

OF POOR QUALITY 


EOAO 

CPX 

♦ 160 

B610 

SIX 

TMP 

P0C6 

8NE 

CNVT 

CA 

BEX 


AOOO 

L HY 

♦ 0 

— 82EC 

AGAIN 

— 828E 

SEND82 

6A 

ROR 

A 

890002 

LI* A 

BUF 1 » Y 

9002 

8CC 

NOPR 

2QE4B2 

JSR 

SEND 

E610 

INC 

TMP 

ce 

INY 


■•B2F1 

NOPR 

COAO 

CPY 

♦ 160 

CA 

DEX 


DOFS 

8NE 

SEND82 

DOF 8 

DNE 

AUAIN 

E60C 

INC 

OCNT 

6610 

ROR 

TMP 

A60C 

LDX 

OCNT 

6A 

ROR 

A 

E07B 

CPX 

♦ 120 

20ACEB 

JSR 

PL X Y 

•■B29F 



t OUTPUT 

ACC 

TO TTY SUBROUTINE 

D003 

8NE 

LAD 1 

»X.V APE PRESERVED 

201FB4 

JSR 

MUAIT 

48 

PHA 


««B2A4 

LABI 


209EE8 

JSR 

PHXY 

A502 

LI'A 

DLKCNT 

8D27A4 

STA 

STI Y 

C9FF 

CMP 

♦ ♦FF 

■■8301 



1*004 

8NE 

SENDB3 

200FEC 

JSR 

DELAY 

C503 

CMP 

DLKCNT ♦ 1 

ADOOA0 

LDA 

DR 8 

F 008 

DEO 

END 

29F 8 

Al'D 

♦ if 8 

— B2AE 

JENH83 

8D00A8 

STA 

DR 8 

204683 

JSR 

RBLK 

8D28A4 

STA 

STIYYl 

8003 

DCS 

CL0S1R 

200FLC 

JSR 

DELAY 

4C50D2 

JMP 

SENDD 

••8312 



••8286 

CL0S1R 

A208 

lux 

♦ ♦08 

4C2E82 

JMP 

CLOSER 

2E27A4 

ROL 

STIY 




2E27A4 

ROL 

STIY 




2E27A4 

ROL 

STIY 

••8289 

END 


■ * 8 3 1 D 

OUT T 1 

200784 

JSR 

EOF 

6E27A4 

f:*'R 

STIY 

AOOD 

LB Y 

♦MEND- HO 

AD27A4 

LDA 

STIY 

20C482 

JSR 

MESS 

2904 

AND 

♦ ♦04 

4C3882 

JMP 

READ 

0D28A4 

ORA 

STIY+1 


^ ^ ^ M 


8D00A6 

STA 

PR8 




08 

PMP 


••82C4 

MESS 

200FEC 

JSR 

DELAY 

89028F 

l HA 

HO » Y 

•■B32F 



48 

PM A 


28 

PLP 


297F 

AND 

♦ ♦7F 

CA 

DEX 


207AE9 

JSR 

OUTPUT 

DOEA 

DNE 

OUT 1 1 

C8 

INY 


A904 

LDA 

♦ ♦04 

68 

PLA 


0D28A4 

ORA 

ST1Y+1 

10F3 

8PL 

MESS 

8D00A8 

STA 

DR 8 

60 

RTS 


200FEC 

JSR 

DELAY 




1EXTRA 

DELAY TO ALLOW FOR MINC 




200FEC 

JSR 

DELAY 

■■8282 

Gf*iM 

••8341 



A086 

LPY 

♦MI NPUT-MO 

20ACE8 

JSR 

PLXY 

20C482 

JSR 

MESS 

68 

PLA 


203CE9 

JSR 

READM 

60 

RTS 


20BCE9 

JSR 

OUTALL 


+ mm+m m 


60 

RTS 








••8346 

RBLK 




AD0C90 

LDA 

CSR 

— 82DE 

INVAL 

2910 

AND 

♦ NRPY 

A022 

LDY 

♦MINV-HO 

D0F9 

DNE 

RBLK 

20C482 

JSR 

MESS 

A9A4 

LDA 

♦ 164 

60 

RTS 


8D0990 

STA 

UPC 




A9C4 

LDA 

*RDL 




8D0A/0 

STA 

CDR 

■■B2E4 

SEND 

— P357 




* GENERATE EVEN PARI i Y 
I SAVE XtY ON STACK 
209EE8 JSR PHXY 
**82E7 PARITY 
A209 LBX #09 


20B083 

8029 

8500 

201*083 

8022 


JSR RUORU 
IKS RBLK2 
STA RNCNT 
JSR RUORD 
PCS RPLK2 
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OF POOR QUALITY 


8501 

STA RNCNT+1 

•«B3D0 

RU0R6 

20D083 

JSR RU0R6 

A60E90 

LDA 

I SR 

■•6.166 


2C00BF 

BIT 

CCE 

B01 t 

BC6 R6LK2 

600 A 

BNE 

RU0RB2 

850* 

STA BLKCNT 

2C01BF 

BIT 

BA 

20B0B3 

JSR RU0R6 

FOF 3 

BEG 

RUORD 

6014 

BCS RBLK2 

A60890 

LUA 

6BR 

BS03 

STA BLKCNT ♦ 1 

— B3E0 



A000 

LBY tO 

18 

CLC 


■•6375 

RBLK1 

60 

RTS 


206083 

JSR RU0R6 

— B3E2 

RU0R62 

6006 

BCS RBLK2 

38 

SEC 


990002 

STA BUF1,Y 

60 

RTS 


C8 

INY 




COAO 

CRY #160 




60F3 

BNE RBLK1 

• »B3E4 

FIX 


4C97B3 

JHP C0M'A2 

A056 

L6Y 

#HERROR-H< 

— 6305 

RDLKC 

20C4B2 

JSR 

HESS 

4C9F63 

JHP C0HBA4 

60 

RTS 


■■6308 

COHBA 

— B3EA 

EOT 


48 

PHA 

AOOO 

LBY 

♦ 0 

AH0B90 

L6A ESP 

— B3EC 

EOT 1 

— B3BC 

COhBAl 

A924 

LB A 

##24 

A60C90 

L6A CSR 

1# 



2910 

AN 6 #NR6Y 

20E4B2 

JSR 

SEN6 

60F9 

BNE COHBA 1 

(WAIT FOR MINC TO RE‘ 

66 

PLA 

A20A 

LUX 

#10 

8D0A90 

SI A CDR 

— B3F3 

HOLB 

■•6397 

COMBA2 

200FEC 

JSR 

DELAY 

A80E90 

L6A ISP 

CA 

BEX 


2D008F 

AN6 CCE 

6 OF A 

BNE 

HOLB 

F0F8 

BEG C0HBA2 

ce 

INY 


— 639F 

C0M6A4 

COAO 

cry 

#160 

A60C90 

LBA CSR 

DOEE 

BNE 

EOT 1 

48 

PHA 

E60C 

INC 

OCNT 

2902 

AN 6 4E01FLG 

A40C 

LBY 

OCNT 

F010 

BEG C0HBA5 

C078 

CPY 

#120 

A062 

L6Y #WORKI N-HO 

■-B404 



20C462 

JSR HESS 

60E4 

BNE 

EOT 

20EAB3 

J8R EOT 

60 

RTS 


■«63AF 





A036 

L6Y #HERR1-H0 




20C4B2 

JSR HESS 

••B407 

EOF 


66 

PLA 

AOOO 

LBY 

#0 

38 

SEC 

— B409 

EOF 1 

60 

RTS 

A92A 

LGA 

#«2A 

•■B3B7 

C0HDA5 

20E4B2 

JSR 

SENB 

68 

PLA 

ce 

INY 


2901 

AN6 ##81 

COAO 

CPY 

#160 

6002 

BNE C0H6A3 

BOF 6 

BNE 

EOF 1 

18 

CLC 

E60C 

INC 

OCNT 

60 

RTS 

A60C 

LDX 

OCNT 

■»B3BE 

C0H6A3 

EO70 

CPX 

#120 

AOOO 

L BY #H0-H0 

■■B419 



48 

PHA 

6003 

BNE 

E0F2 

20C4B2 

JSR HESS 

201FB4 

JSR 

HWAIT 

68 

PLA 

--B41E 

E0F2 

2046EA 

JSR NUHA 

60 

RTS 


A 60 690 

LDA ESR 




2046EA 

JSR NUHA 




— B3CE 





lb 

CLC 




60 

RTS 
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W*® 


■«F4lF 

MUAIT 

A062 

LFY 

•WORKIN-MO 

20C4F2 

JSR 

HESS 

A200 

LFX 

♦ 0 

A000 

LFY 

•0 

■■F428 

HUT 


A900 

L DA 

• 0 

fFRQM PAGE 

8-37 OF AIM-65 USER ' S GHIFE 

S50C 

STA 

OCNT 

8F04A0 

STA 

UTIL 

A9FF 

LFA 

♦ tFF 

8F05AO 

STA 

UT1CH 

AV40 

LI* A 

♦ 1 40 

• ■1*436 

HU1 


2C0DA0 

FIT 

UIFR 

foff 

FEG 

HU 1 

AF04A0 

LFA 

UTIL 

EB 

I NX 


F0E7 

FNE 

HUT 

ce 

INY 


C004 

CPY 

♦ 4 

F0E2 

FNE 

HUT 

■ ■F 446 



60 

RTS 



IMDAS-I6 ANALOG/MCI T AL CONVERSION CALIBRATION 
I ENTRY POINT FROM 'F2* KEY 
««B447 MHASC 


A 091* 

LFY 

♦HCALIF 

20C4F2 

JSR 

MESS 

A0C3 

LFY 

•MCHANL 

20C4B2 

JSR 

HESS 

2096FE 

JSR 

REU1 

207FEA 

■■F457 

JSR 

HEX 

A8 

TAY 



■*B458 

LOOP 

AF0080 

LFA 

CLEAR 

2060F1 

JSR 

WAIT 

A900 

LFA 

• too 

8512 

STA 

HEH 

8513 

STA 

MEH1 

8514 

STA 

HEH2 

98 

TYA 


AA 

TAX 


■*F46B 



EG 

1 NX 


CA 

HEX 


-•F46A 

ISEQ 

FOOA 

PEG 

SAMPL 

AF0180 

LFA 

SEO 

2060F1 

JSR 

WAIT 

CA 

FEX 


4C6AB4 

JHP 

ISEQ 

■■F476 

SAMPl 

2060B1 

JSR 

UAIT 

AF0280 

LFA 

MLF 

AA 

TAX 


290F 

ANF 

♦ tOF 

8512 

STA 

MEM 

8A 

TXA 
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WTrAr-.r^'i 


OWGINM- 
0F poOR Q Jf ' U 


6A 

R OK 

A 

A9C2 

LDA • WTH 

6A 

RON 

A 

204181 

JSR COMP 

6A 

RO* 

A 

AVC2 

LDA *UTh 

6A 

ROF: 

A 

204181 

JSR COHD 

— 8486 



A20C 

LUX 412 

290F 

AND 

♦ •OF 

■■8504 

CL0S1T 

8513 

ST A 

HEM1 

A9C3 

IDA «E ( A 

A DO 380 

LDA 

LOU 

204181 

JSR COHD 

290F 

AND 

♦ •OF 

CA 

DEX 

8514 

STA 

MEM2 

DOFS 

8NE CL0S1T 

20FOE9 

JSR 

CRLF 

4CCDB4 

JMP STARTT 

A513 

LDA 

ME Ml 



■■8496 





205 1 EA 

JSR 

NOUT 

■*850F 

RECRDT 

AS 1 2 

LDA 

HEM 

AVOO 

LDA 40 

2051EA 

JSR 

NOUT 

0504 

STA 8UFCNT 

A514 

LDA 

MEM2 

0506 

STA 1 8UF 

2051EA 

JSR 

NOUT 

8508 

STA 08UF 

4C58M 

JMP 

LOOP 

A901 

LDA 41 




B50E 

STA TEMPO 




A902 

LDA 4>8UF 1 




8507 

STA IBUF+1 

—B4A6 



■■B51F 



1100 SPS DATA ACQUISITION FOR TRANSDUCER CALIBRATION 6509 STA 0BUF4J 


1ENTRY 

POINT FROM *F3 

■■84A6 

TRANSC 

A080 

LDY 

•MFA6T-M0 

20C482 

JSR 

MESS 

AD0060 

LDA 

CLEAR 

A992 

LDA 

♦ SRST 

8D0890 

STA 

MDRO 

A901 

LDA 

♦ 1 

8500 

STA 

RNCNT 

— 8487 
A900 

LDA 

♦ 0 

8501 

STA 

RNCNT 4 1 

A9FF 

l DA 

♦ 4FF 

8D81A4 

STA 

K DDR A 2 

A900 

LDA 

♦ 0 

8D83A4 

STA 

KDDR82 

8D80A4 

STA 

KDRA2 

— 84C8 
A9C0 

LDA 

♦ •CO 

8D08A0 

STA 

UACR 

— 84CD 

STARTT 

A912 

LDA 

• •12 

8D0890 

STA 

MPRO 

A9CA 

LDA 

•REU 

204181 

JSR 

COHD 

A9CA 

LDA 

• REU 

204181 

JSR 

COMB 

— 84DC 

MAINT 

2025B1 

JSR 

BKEY 

C9EF 

CMP 

•LOADK 

D0F9 

BNE 

MAINT 

A9CA 

LDA 

• REU 

204181 

JSR 

COHD 

A9C9 

LDA 

♦ SLE 

204181 

JSR 

COMD 

■•84ED 

MAIN2T 

202581 

JSR 

GKEY 

C98F 

CMP 

♦ RECK 

FOl 8 

DEO 

RECRDT 

C9DF 

CMP 

♦CLOSER 

DOFS 

8NE 

MAIN2T 

■ ■ 8 4 F 8 

CLOSET 


A9B5 

LDA 

♦ >INTT 

SD05A4 

STA 

VECTH 

A989 

LDA 

♦ < I N T T 

8D04A4 

S T A 

VECTL 

A9C0 

LDA 

♦ •CO 

8D0EA0 

■•8530 

STA 

UIER 

A986 

LDA 

♦<•1386 

8D04A0 

STA 

UTIL 

A913 

LDA 

•>•1386 

6D05A0 

STA 

UTlCH 

58 

CLI 


A9FF 

LDA 

• •FF 

8502 

STA 

8LKCNT 

0503 

SIA 

BLKCNT+1 

— 8541 

REC2T 

A50E 

LDA 

TEMPO 

DOFC 

8NE 

REC2T 

E607 

INC 

ibumi 

A901 

LDA 

♦ l 

850E 

STA 

TEMPO 

A507 

LDA 

I8UF+1 

C930 

CMP 

♦ •30 

DOFO 

8NE 

REC2T 

— 8551 

RECXT 

A940 

LB A 

• •40 

8DOEAO 

STA 

UIER 

— 8556 

LOOPT 

E602 

INC 

BLKCN1 

A502 

LDA 

BLKCNT 

D002 

BNE 

L00R1T 

E603 

INC 

BLKCNH-1 

— B55E 

L HOP IT 

A509 

LDA 

08UF+1 

C92F 

CMP 

♦ •2F 

F 0 1 3 

8EQ 

LAST 

206481 

JSR 

URITE 

A508 

LDA 

08UF 

18 

CLC 


69A0 

ADC 

• 160 

8508 
— 856E 

STA 

08CF 
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A509 LDA OBUF ♦ 1 
6900 ADC #0 
8509 STA 0BUF41 
4CS6B5 JHP LOOFl 
■■8377 LAST 
A9FF LDA #$FF 

8502 STA BLKCNT 

8503 STA BLKCNT+i 
206481 JSR WRITE 
E600 INC RNCNT 

DO 02 BNE RECX2T 
E60 1 INC RNCNT + 1 
— 8586 RECX2T 
4CEDB4 JHP HAIN2T 


■•8589 INTT 
48 PHA 

ADOCAO L DA UDRB 
1037 8F*L INTEXT 
98 TYA 

48 PHA 

A404 LDY 8UFCNT 

A90F LDA #15 

B50A STA CNT 

AD0180 LDA SEQ 

■ * 859 A 

20608? JSR WAIT 

■ *85911 ILOOPT 
AD0260 LDA HED 
9106 STA (IBUF)rY 
ADO 180 LDA SEQ 

C8 I N Y 

AD0380 LDA LOW 
9106 STA (IDUF)fY 
C8 INY 

C60A DEC CNT 
■■85AE 

DOED 8NE ILOOPT 
AD0280 LDA HED 
9106 STA (IDUF)fY 
C8 INY 

AD0380 LDA LOU 
9106 STA < 1 8UF ) » Y 
C8 INY 

8404 STY 8UFCNT 
■«85BE 

D004 8NE BTHT 
A900 LDA #0 
650E STA TEHPO 
**B5C4 PTHT 
68 PLA 

A8 TAY 

— B5C6 INTEXT 

AD04A0 LDA UTIL 
68 PLA 

40 RTI 

■■85CB 

t*$BF0© 

— BFOO CCE 

80 » BYTE $80 

— BF01 DA 

20 .BYTE $20 

— BF02 HO 

OD .BYTE CR * ' T APE ERROR '*$A0 

5441 


AO 

■■8F0F HEND 

OD .BYTE CR * ' LAST BLOCK THIS RU'*$CE 

204C 

■•8F23 

CE 

— BF24 HINV 

OD .BYTE CR*' INVALID C0HHAN'*$C4 1 

2020 
■-8F37 
C 4 

— 8F38 HERR 1 

OD .BYTE CR * ' FILE HARK F0UN'*$C4 

2020 
■■ 8F49 
C4 

■■BF4A HRNCNT 

OD . BYT£ CRf'RUN NUHBER '*$A0 \ j 

5255 i 

A0 

■•8F58 HERROR | 

OD .BYTE CR * 9 DATA ERROR 't$AO \ 

4441 a 

AO i 

*®BF 64 W0RK1N 1 

OD .BYTE CR* ' WORKXN' t $C7 

5 74F | 

C7 1 

■■BF6C H20SPS 

OD .BYTE CR* '20 BPS DATA AQ ' * $A0 

3230 
AO 

■-8F7C H10SPS 

OD . .BYTE CR * ' 10 SPS DATA AQ'*$A0 
3130 

AO 

— DF8C HTRANS 

OD .BYTE CR # ' RS-232 DATA RECOV'*$AO 

5253 
■■8F9E 
AO 

■■BF9F HCALI8 

OD .BYTE CR * ' HDAS-16 CALIB'*$A0 
2020 
■■BFB1 
AO 

— BFB2 Hf AST 

OD .BYTE CR * ' TRANSDUCER CALIB'*$A0 
2054 

— BFC4 
AO 

— BFC5 HCHANL 

OD . BY^E CR * * CHANNEL ♦ <0-F)'*$BF 

2043 
■■8FD7 
BF 

— 8FDB HINPUT 

OD .BYTE CR * ' COHHAND? ' * $A0 

4 34F 
AO 

.END 

ERRORS* 0000 
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A-’) MINC DATA TRANSFER (AIM-65 TO MINC) 


Description: This program accepts raw data from the AIM-65. 

This raw data is collected and 6tored on floppy disks for use in the 
ENGINEERING CONVERSION and QUICK LOOK DATA PLOT routines. 


Listing: 


FORTRAN IV V02.5-2 Sun 27-Dec~8l 04:09:22 


FAG t 00 i 


0001 


0002 

0003 

0004 

0005 


0006 

0007 

oooe 

0009 

0010 

0011 

0012 

0013 

0014 
0016 

0017 

0018 


0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 
0027 
0026 

0029 

0030 


PROGRAM AIMIN 

C 

C..«. AIN TO MINC PROGRAM FOR 16 CHANNEL 
C.... INPUT USING ASYNCHRONOUS TRANSMISSION 
C.... WRITTEN B Y MARK A MOSSER 
C.... MODIFIED b Y ROBERT CLARKE 
C 

C This I'roini ineutt data fro* the AIM - 65 through SLU-1 
C at character* (32 at a time ) to fill a 600 X 32 character 

C arrav. When full* thit array it output to the sequential 

C teaclfied filet. UNFORMATTED RECORDS 

C 

DIMENSION IADDR (4) 

BYTE I DATA (32*600) *NAME ( 15) 

LOCI CAL* 1 STAR 

C.... DEFINE FILE NAME FOR AIM-65 TRANSFERED DATA FILES 

DATA NAME /'P' * 'Y' i ' 1' » ' ! '» 'AS'I' t'H' i '0' i # 0' * 'O' » 


1 '.'*'D'*'A'*'T'*0/ 

C.... DEFINE FLAG FOR RUN DATA SEPARATOR 
DATA STAR /.TRUE./ 

C.... INITIALIZE DATA PILE TO BLANKS 
DATA IDATA /19200*' '/ 

C. . . . START PROGRAM 

TYPE »* 'THIS PROGRAM READS DATA FROM THE AIM-65 ' 

TYPE »* 'AT 9600 BAUD USING INPUT PORT SLU1 ' 

C.... INITIALIZE ISET FOR NUMBER Qh MINC DATA FILE 
I SET * 1 

C.>.. OPEN FIRST OUTPUT FILE FOR DATA 
ENCODE ( 3 * 999 * NAME ( 8 > ) ISET 
999 FORMAT (13) 

C...« CHANGE ENCODED BLANKS BACK TO ZEROS 
DO 1000 JJ«8*10 

IF (NAME( JJ) .EO. ' ') NAME ( JJ ) « '0' 

1000 CONTINUE 
C. . . . OPEN OUTPUT FILE 

OPEN ( UNI T* 1 *NAME»NAME *TYPE»'NEW' * ACCESS* ' SEQUENTIAL ' * 
l FORM* ' UNFORMATTED ' * RECORDS I ZE* 32 f BUFFERC0UNT*2 ) 

2002 CONTINUE 

C.... TOP OF LOOP FOR DATA INPUT FROM AIM-65 

C.... ATTACH THE INPUT PORT (OR REATTACH AS THE CASE MAY BE) 
TYPE ** 'ATTACH SLU 1. ' 


C. . . . CHECK FOR ERRORS 
IERR-MTATCH<2) 

TYPE 998* IERR 
998 FORMAT ( ' IERR • ' * 12) 

TYPE ** 'SET UP FOR READING.' 
IADDR < 1 ) - *50010 
IADDR ( 2 ) - 0 
IADDR ( 3 ) • 0 
I AD DR ( 4 ) « 0 

IERR • MTSET ( 2 * IADDR ( 1 ) ) 

TYPE 998* IERR 

C.... READ DATA FROM INPUT PORT 
TYPE •* ' 


READ FUNCTION:' 
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' ;*■ ■ jhiuailrita. 






0031 

cos: 

0033 

0034 

0035 

0036 

0037 


0036 

003? 

0040 

0041 

0043 


0045 

0047 

0048 

0049 

0050 


0051 

0053 


0054 

0055 

0056 

0057 

0059 

0060 

0061 


0062 

0063 

0064 

0063 

0066 

0067 


0068 

0069 

0070 

0071 

0072 


ORIGINAL PAGE IS 

DO 101 I • 1 » 600 
DO 102 J* 1 » 32 
IERR • MTIN(2t IDATAt J» I ) > 

102 CONTINUE 
101 CONTINUE 

TYRE 103 » I - 1 

103 FORMAT < 1 OX * ' BUFFER FULL * DUMP IT TO DISK '*/» 

. 1 OX > 'TOTAL SIZE * '.I5»' (AIM-65 DATA BLOCKS)') 

C.... OUTPUT DATA TO DISK FILE 
C.... WRITE OUT DATA FILE NAME 

TYRE 700 1 < NAME <JJ)tJJ*l*14) 

700 FORMAT< lOXt 'MINC FILE NAME FOR OUTPUT ■ '»14A1) 

C.... DUMP DATA TO DISK 
DO 135 K* 1 1 600 

C.... CHECK FOR TARE MARK FLAG (FLAG IS TRANSFER OF DOLLAR 6IGN) 

IF ( I DATA ( 1 r K > tEO t ' t ' ) GO TO 135 
C.... CHECK FOR END OF RUN (FLAG IS TRANSFER OF STAR) 

C.... SEE IF FIRST CHARACTER ON THIS LINE IS A STAR 
IF <IDATA<1»K>.NE.'*') GO TO 134 
C.... FIRST CHARACTER WAS A STAR 
C.... SEE IF NEXT CHARACTER IS A STAR 
IF ( IDATA( 2»K ) .EG . ' * ' ) GO TO 133 

c..*. error; only if not a star 

TYPE *t' «m ERROR **** DATA HAS ERROR IN FLAG FOR END OF RUN ' 
C. . . . CLOSE FILE AND STOP 

CLOSE ( UNI T* 1 # DISPOSE* ' SAVE ' ) 

STOP 

133 CONTINUE 

C.... NO ERROR » SO CLOSE FILE IF THIS IS THE FIRST LINE OF STARS 
C.... SINCE 5 LINES OF STARS WILL BE TRANSFERED IN ALL 
IE < .NOT. STAR) GO TO 135 
C.... MUST BE FIRST LINE OF STARS 

CLOSE < UNIT-1 t DISPOSE* ' SAVE ' ) 

C.... OPEN NEW FILE AND SET STAR FLAG TO FALSE 
C.... OPEN OUTPUT FILE FOR DATA 
I SET ■ I SET + 1 
ENCODE ( 3 f 999 » NAME < 8 ) ) ISET 
DO 2001 J J*8 » 10 

IF (NAME(JJ) .EG.' ') NAME < J J > * '0' 

2001 CONTINUE 

TYPE 700 1 ( NAME < JJ > t JJ* 1 >14) 

C. . . . OPEN OUTPUT FILE 

OPEN (UNIT-1 tNANE "NAME t TYPE* 'NEW ' » ACCESS* ' SEQUENTIAL ' » 

1 FORM* ' FORMATTED ' t RECORDS I ZE *32 1 BUFFERC0UNT*2 ) 

C.... SET STAR FLAG TO FALSE 
STAR * .FALSE. 

C«... CONTINUE THROUGH LOOP 
GO TO 135 

134 CONTINUE 

C.... SET STAR FLAG TO TRUE 
STAR - .TRUE. 

WRITE (1) ( I DAT A ( L r K > » L*1 r 32 > 

135 CONTINUE 

C..«. DETACH INPUT PORT TO ELIMINATE ERRORS 
TYPE *# ' DET ATCH INPUT PONT.' 

I ERR * MT DTCH < 2 > 

TYPE 998 9 IERR 
GO TO 2002 
END 
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A. 3) MINC QUICK LOOK DATA PLOT 

Description: The QUICK LOOK DATA PLOT program is used to aid 

in choosing maneuvers to be analyzed by the MMLE program. The data 
are plotted using the stripchart graphics mode of the VT-105 Graphics 
Terminal. This routine uses the AIM-63 data files created by the 
MINC DATA TRANSFER routine. 

Programming Note: This routine bypasses the MINC graphics 

routine PLOT55 to use the stripchart graphics mode. It uses the 
CONVERT subroutine which is explained in the ENGINEERING CONVERSION 
program. 

Listing: 


FORTRAN IV V02.5-2 Sun 27-D.c-Bl 02»55!30 RAGE 001 


0001 PROGRAM GRAPH 

C.... 1 HIS PROGRAM USES THE GRAPHICS CAPABILITIES 
C.... OF THE VT 105 TERMINAL TO DISPLAY OUICK LOOK 

C.... PLOTS OF THE AIM-65 RECORDED DATA FILES (UNFORMATTED RECORDS) 

0002 BYTE NAME (1S).DATA(32 .500 > .NAMES ( 15.16) 

0003 L0GICAL.1 MORE. FIRST 

C.... INITIALIZE NAME ARRAY FOR FILES 

0004 DATA NAME / ' It' . * Y ' . ' 1 ' . ' 1 ' . ' A' • ' I ' . ' M ' . '0' . '0' . '0' . 

. ' . ' . 'D' . 'A' . *T* .0/ 

C.... INITIALIZE DATA ARRAY 

0005 DATA DATA /16000*' '/ 

C.... SET NAMES OF CHANNELS 

0006 DATA NAMES / 



' R ' p 
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0 « . 




' p ' ' p 


'F' , 

'I' 


'T' 

'C' t 

'H' 




'R' 
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'E' 



0 0 _ 
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' T ' p 

'U'p 

'D' 


'E 
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'A' 

'C' e 
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'E' 


'U' 


'E' 


'R' 


'A' 


'T' p 

'X'p 

'0' 


'N 

' p ' ' P 
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'A' 
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'C' 


'E' 
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'E' 


'R' 


'A' 


' T ' p 

'X'p 

'0' 


'N 

' p ' ' p 


'X'p 

* » 


'A' 

'C'p 

'C' 


'E' 


'L' 


'E' 


'R' 


'A' 


'T' p 

'X'p 

'0' 


'N 

' p ' ' p 


' T ' o 

'0' 


'T' 

'A' p 

'L' 




'F ' 


'R' 


'E' 


'S' 


'S' p 

'U' P 

'R' 


'E 

' p ' ' p 


'S' f 

'T' 


' A ' 

' T ' » 

'X' 


'C' 


0 0 


' F ' 


'R' 


'E' 


'S' p 

'S' P 

'U' 


'R 

' p 'E' p 


' D ' p 

'E ' 


'L' 

'T' t 

'A' 




'R' 


' U ' 


' D' 
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' E ' p 

'R' p 
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' D' t 
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'L' 

' T ' p 
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'A' 


'X' 


'L ' 


'E' 


'R' p 

'0' p 

'N' 


'S 
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'D' p 

' E ' 


' L ' 

'T' p 

'A' 




'E' 


'L' 


'E' 


'V' 


'A' p 

'T' p 

'0' 


'R 

' p ' ' p 


'T' f 

'0' 


'T' 

' A' p 
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'T' 


'E' 
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'C' t 

'H' 


'A' 

'N' p 

' N ' 


'E' 


'L' 


0 0 


'1' 


'5' 


t 0 

0 0 # 




' p ' ' p 


'C' f 
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'A' 

'N' p 

'N' 


' E ' 


'L' 


0 0 


'0' 


0 0 


' ' P 

/ / ( 




' p ' '/ 



C 4 • • • 

INITIALIZE MORE DATA IN FILE FLAG AND FIRST TIME FLAG 

0007 


DATA 

MOREpFIRST /.FALSE. p .TRUE./ 


c • * • * 

GET READY TO FLOT DATA 


C . . . * 

ERASE 

TEXT FROM SCREEN TOF TO BOTTOM 

0008 


IERR 

« ITTOUR < • 033 > 

0009 


IERR 

■ ITTOUR < - 1 33 

0010 


IERR 

- ITT0URC062) 

0011 


IERR 

- ITT0URC112) 


c • * * • 

SET TEXT SCROLL REGION TO BOTTOM 4 LINES 

0012 


IERR 

■ ITTOUR< *033) 

0013 


IERR 

« ITTOUR < * 133 ) 

0014 


IERR 

- ITTOUR < * 062 ) 
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0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 
0027 

0026 

0029 

0030 


0031 

0032 

0033 

0034 

0035 

0036 


0037 

0036 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 
0046 

0049 

0050 

oos: 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 


0063 

0064 


ORIGIN ft <- 
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quality 


c • • • • 
1000 
C • • • • 


c • ♦ • * 
c • • * * 

c * • • • 


C • • • i 

C t I M 


c. 


c • • • • 
c * ♦ * * 


c * ♦ • « 
c # • * • 
c * * • * 

C • • • • 

c « • • • 

c ♦ • • * 

c • * • « 
c • « • • 


X ERR 
IERR 
I ERR 
IERR 
XERR 
TOR OF 


X T TOUR ( * 061 ) 
XTTOUR < * 073 > 
I TTOUR < *062 > 
XTTOUR < *064 > 
I TTOUR< * 162 > 
NEW FILE LOOP 


CONTINUE 
ENTER GRAPHICS 


MODE 


SI 


IERR 
IERR 
CLEAR 
XERR 
XERR 
ENABLE 
IERR 
IERR 
IERR 
ENABLE 
IERR 
IERR 
IERR 
DEFINE 
LEFT SID 
IERR 
IERR 
IERR 
RIGHT 
IERR 
IERR 
IERR 
DEFINE 
BOTTOM 
IERR 
IERR 
IERR 
NEXT 
IERR 
IERR 
IERR 
NEXT 
IERR 
IERR 
IERR 
NEXT 
IERR 
XERR 
XERR 
TOP LINE 
IERR 
IERR 
IERR 
DISABLE 
IERR 
IERR 
IERR 
ENABLE 
IERR 
IERR 
IERR 
URITE 
IERR 
IERR 
IERR 
LEAVE 
IERR 
IERR 
HOVE CUR 


I TTOUR < *033 ) 

ITT0URC061 ) 

GRAPHICS HEHORY 
XTTOUR < • 1 1 1 ) 

ITTOUR! *060 ) 

SQUARE GRAPHICS DISPLAY FORMAT <512X240) 
I TTOUR <*111 > 

I TTOUR < *040) 

I TTOUR < * 041 > 

VERTICAL AND HORIZONTAL LINES 
I TTOUR < * 1 1 1 ) 

ITTOUR< *043) 

X TTOUR < *041 ) 

vertical lines 

E 

I TTOUR < *114) 

ITTOUR< *040) 

ITTOUR < * 060 ) 

DC 

ITTOUR< *114) 

XTTOUR < *077 ) 

ITTOUR < *077) 

HORIZONTAL LINES 
LINE 

X TTOUR< • 1 04 > 

I TTOUR < *047) 

ITTOUR' *061 ) 

E UP 

ITTOUR < * 104 ) 

ITTOUR< * 071 ) 

ITTOUR < *062 ) 

E UP 

I TTOUR < * 104 ) 

I TTOUR < *053) 

ITTOUR < * 064 > 

E UP 

ITTOUR< * 104 ) 

ITTOUR< *075) 

1TT0UR< *065 ) 


LIN 


LIN 


LIN 


IN 


IERR 

IERR 


I TTOUR< * 104 ) 

ITTOUR < *057) 

ITTOUR < *067) 

GRAPHS 
ITTOUR< * 101 ) 

ITTOUR< *040) 

ITTOUR < *040) 

STRIPCHART GRAPHICS DISPLAY 
XTTOUR < * 101 ) 

ITTOUR < * 047 ) 

X TTOUR < *050) 

ITIAL POINT' TO SCREEN 
ITTOUR < * 1 10 > 

ITTOUR < *040 ) 

ITTOUR< *040) 

RAPHICS MODE 
ITTOUR < *033 ) 

I TTOUR< *062) 

SOR TO LOCATIONS FOR LABELS 

ITTOUR < *033 ) 

ITTOUR < * 133 ) 
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0063 

0066 

006? 

0066 

0069 

0070 


0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0062 
0003 

0064 

0085 

0007 

0008 
0009 

0090 


0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 
0107 
0100 

0109 

0110 
0111 
0112 

0114 

0115 

0116 

0117 


IERR • ITTOUR ' *061 ) 

IERR ■ ITTOUR < *073 ) 

IERR * ITT0UR<*061> 

IERR • I TTOUR ( 9 146 ) 

C. . . ♦ TYRE LABELS 
TYRE 199 

199 FORMAT < ' 65.00 V'i////i' 42.50 V'»/////t' 
. ' -2.30 V'*/////#' -5.00 V') 

C..«. MOVE CURSOR TO SCROLLING REGION 

■ I TTOUR < * 033 ) 

» ITTOUR< * 133) 

» XTTOUR< *062) 

> X TTOUR ( * 061 ) 

■ 1 TTOUR < *073 > 

» ITT0URC061) 

■ X TTOUR < • 1 46 ) 

C.... GET FILE NAME OF AlH-63 INPUT DATA FILE 


ORIGINAL PACE IS 
OF POOR QUALITY 


0.00 V't/////* 


XERR 
IERR 
IERR 
XERR 
IERR 
IERR 
IERR 
GET 
TYRE 1 

FORMAT (///////? 


• '%• »9X» 'Input th* nu«t>»r of t h# AIM-65 d«t» filt 1 
ACCEPT 2 * X AIM 

2 FORMAT < 1 1 4 ) 

ENCODE ( 3 9 999 t NAME < 0 ) ) IAXM 
999 FORMAT < 13 ) 

C...» CHANGE ENCODED BLANKS BACK TO ZEROS 
DO 998 X«0»1O 

IF < NAME ( X ) • EO . ' ') NAME<X>-'0' 

998 CONTINUE 

TYPE 997 1 (NAME< X > »I»1 »14) 

997 FORMAT ( 9 'rlSX.'FXLE NAME* '»14Al'/> 

C...t OPEN FILE FOR READING AND CONVERSION 

OPEN <UNIT*1 f NAME -NAME * TYPE- 'OLD' r ACCESS- ' SEQUENT! AL ' t 
. FORM- ' UNFORMATTED' t RECORDS XZE- 32 tBUFFERCOUNT- 2 » 

• READONLY) 

C.... GET VALUE OF OF PARAMETER TO DISPLAY <IF 0 THEN QUIT) 

TYPE 6 

6 FORMAT < ' S ' 1 9X • ' Input th« p»r»»»t»r chonntl nu»b«rt'» 

• ' <1 - 161 0 to ouit) ' ) 


ACCEPT 7 1 INUM 
7 FORMAT < 13 > 


C.... SAVE CURSOR POSITION AND ATTRIBUTES 
IERR « XTTOUR( *033 ) 

IERR - ITTOUR< *067 > 

C...« SELECT BOLD CHAR ATTRIBUTES 
IERR > ITTOURC *033) 

IERR - XTT0URC133) 


C . ♦ . . 


IERR « ITTOUR< *061 ) 

IERR - ITTOUR < * 155 > 

MOVE CURSOR TO LOCATIONS FOR NAMES LABEL 
IERR - ITTOUR ( *033 > 

IERR - ITTOUR < * 133 ) 

IERR - XTTOUR( *061 ) 

IERR - I TTOUR ( * 073 ) 

XERR - ITTOUR< *063 > 


IERR - I TTOUR < *060 ) 

IERR « ITTOUR (*146) 

TYPE 34 f < NAMES < I AC • INUM > » X AC-1 « 15 ) 

34 FORMAT < 'S' »15A1 ) 

C. . . . RESTORE CURSOR 

IERR ■ ITTOUR ( *033 ) 

IERR - I TTOUR< * 070 > 

IF < (INUM. GT.16.) .OR. (INUM. LT.D) GO YO 4000 
C.... TOP OF NEU CHANNEL NUMBER LOOP 


3000 CONTINUE 

C.... SAVE CURSOR POSITION AND ATTRIBUTES 
IERR « ITTOUR ( • 033 ) 


IERR - ITTDUR< • 067 ) 

C.... SELECT BOLD CHAR ATTRIBUTES 
IERR « ITTOUR ( *033 ) 
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one 

0U9 

0120 

0121 

012 ? 

0123 

0124 

0125 

0126 
0127 
0126 

0129 

0130 

0131 

0132 

0133 
0 a 34 
0135 


0136 

0137 
0136 

0139 

0140 

0141 

0142 


0143 

0144 

0145 

0146 

0147 
0140 

0149 

0150 

0151 

0152 

0153 

0154 


0155 

0156 

0157 


0156 

0159 


0160 

0161 


0162 

0164 


ierr ■ :ttour(*i33) 

IERR - I T TOUR < • 06 1 > 

IERR ■ I T TOUR ( * 155 > 

C.... HOVE CURSOR TO LOCATIONS TOR NAMES LABEL 
I ERR • ITTOUR < *033 ) 

TERR ■ ITTOUR ( *133) 

I ERR • I T TOUR ( * 06 1 ) 

IERR - I TTOUR ( • 073 ) 

I ERR « ITT OUR ( - 063 > 

IERR • I TTOUR ( • 060 ) 

IERR ■ I TTOUR( *146) 

TYRE 34 f ( NAMES ( I AC t INUH > . 1 AC” 1 » 15 > 

C. . . . RESTORE CURSOR 

IERR « 1 TTOUR ( • 033 ) 

IERR « ITTOUR ( • 070 ) 

C M m REWIND FILE READ DATA AOAIN 
REWIND 1 

FIRST • .TRUE. 

C.... TOR OF READING DATA FROM FILE LOOR 
3001 CONTINUE 
C. . . . INITIALIZE JLA8T 
JLAST ■ 1 


C... RESET MORE DATA ON FILE FLAG 
HORE • .FALSE. 

C...» READ DATA FROM FILE < UR TO 500 TINE R0INT8) 
DO 4 J» 1 » 500 

READ <1.END”5> < DATA< I . J> . I-l . 32 > 

JLAST « J 

4 CONTINUE 

C.... SET HORE DATA IN FILE FLAG TO .TRUE. 

HORE - .TRUE. 

5 CONTINUE 

C.... TOR OF ORARH DATA LOOR 
3002 CONTINUE 

C. .. CONVERT THE DATA AND RUT IT INTO 
C.... IDATA AFTER SCALING FOR RLCTTING 


IR0S1 * INUHS2-1 

IR0S2 * INUH*2 

DO 6 K-t. JLAST 
C.... GET DATA FROM ARRAY 

IDATAH • DATA ( IR0S1 . K > 

I DATAL * DATA ( IR0S2 1 K ) 

CALL CONVRT< IDATAH. I DAT AL» IDATA) 

VOLT * (FLOAT (IDATA)/16. >*0.002435640.0633 

IRLT • IDATA/327. 674139 


IURRER • IRLT/ 32 

I LOWER • IRLT- IURRER*32 

C.... ENTER GRARHICS MODE 

IERR • ITT0URC033) 

IERR » ITTOUR ( *061 > 

C.... WRITE RLOT DATA TO TERMINAL 
IERR - ITT0URC102) 

IERR « ITTOUR ( 324 1 LOWER ) 

IERR ■ ITTOUR ( 324 IURRER ) 


C * • • . LEAVE GRARHICS MODE 
C IERR » ITTOUR < *033 ) 

C IERR « ITTOUR < • 062 ) 

C TYRE 700. K. VOLT 

700 FORMAT ( ' '.20X.'TIHE ROINT ■ '.14.' VOLTAGE * '.F10.3) 

8 CONTINUE 

C.... LEAVE GRARHICS NODE 

IERR • ITTOUR ( *033 ) 

IERR - ITT0URCO62) 

C.... IF HORE DATA ON FILE FLAG IS .TRUE. I THEN READ HORE AND RLOT IT 
C.... SET FIRST FLAG TO FALSE 

IF (HORE) FIRST - .FALSE. 

IE (HORE) GO TO 3001 

C • » • • CHANNEL HAS BEEN COHRLETELY RLOTTED 
C.... GET NEW CHANNEL NUMBER 
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C. 

• • • 

oet value or or paramctcr to display 

(IF 0 THEN 

QUIT) 

0166 



TYPE 46 



0167 


66 

FORHAT<' ') 



0168 



TYPE 6 




0169 



ACCEPT 

7 * I NUN 



0170 



ir < < INUH.OT . 16. > .0*. < INUN.LT.l) > 00 

TO 4000 



C. 

* • * 

THEREFORE VERTICAL SIDES ARE RESET AND STARTING 

POINT It SET 


C. 

§ * • 

ENTER 

GRAPHICS MODE 



0172 



I ERR 

» X TTOUR ( * 033 ) 



0173 



I ERR 

• I TTOUR < *061 ) 




c* 

• * • 

DISABLE GRAPHS 



0176 



I ERR 

■ I TTOUR 4*101 ) 



0175 



I ERR 

■ ITTOUR! *04f; 



0176 



I ERR 

• 1 T TOUR< • 040 ) 




c. 

* * * 

ENABLE 

SQUARE GRAPHICS DISPLAY FORMAT 

! 512X240 > 


0177 



I ERR 

■ ITT0UR(*H1) 



0170 



IERR 

• I TTOUR ( *040 ) 



0179 



TERR 

• I TTOUR ! *04 1 > 




c. 

• * » 

enable 

VERTICAL AND HORIZONTAL 



0180 



IERR 

• ITTOUR! • l * t * 



0181 



IERR 

• I TTOUR ( 1 043 > 



0102 



XERR 

■ ITTOUR < *041 ) 




c. 

• • • 

DEFINE 

VERTICAL LINES 




c. 

• • • 

LEFT BIDE 



0193 



IERR 

■ I TTOUR ( * 1 1 4 ) 



0184 



IERR 

• ITTOUR< *C40 ) 



0105 



IERR 

• ITTOUR< *060' 




c. 

• • • 

RIGHT 61 BE 



0186 



IERR 

■ ITTOUR< *114) 



0187 



IERR 

* !TTOUR< *077 ) 



0188 



IERR 

• ITTOUR< *077 ) 




e. 

• • • 

DEFINE 

HOR’ZONTAL LINES 




c • 

• • • 

BOTTOM 

LINE 



0189 



IERR 

■ I TTOUR < • 104 ) 



0190 



IERR 

• I TTOUR ( *047 ) 



0191 



IERR 

• I TTOUR ( * 061 ) 




c. 

• • • 

NEXT LINE UP 



0192 



IERR 

« I TTOUR < # 104) 



0193 



IERR 

• ITTOUR! *071 > 



0194 



IERR 

• I TTOUR < • 062 ) 




c. 

• • a 

NEXT LINE UP 



0195 



XERR 

• ITTOUR < • 104 ) 



0196 



IERR 

■ XTT0URC053) 



0197 



IERR 

« IT TOUR < *064 ) 




c • 

• * * 

NEXT LINE UP 



0198 



XERR 

- I TTOUR < *104 ) 



0199 



IERR 

■ ITTOUR! *075) 



0200 



IERR 

■ ITTOUR! *065) 




c. 

• * • 

TOP LINE 



0201 



IERR 

■ ITTOUR ! * 104 ) 



0202 



IERR 

• ITTOUR! *057) 



0203 



XERR 

- I TTOUR! *067 ) 




c. 

• • t 

ENABLE 

STRIPCHART GRAPHICS DISPLAY 



0204 



IERR 

• ITTOUR ! • 101 ) 



0205 



IERR 

■ ITTOUR! # 047> 



0206 



IERR 

■ ITTOUR! *050) 




c. 

• • • 

WRITE 

INITIAL POINT TO SCREEN 



0207 



IERR 

• ITTOUR ! • 1 10 ) 



0208 



IERR 

« ITTOUR! *040) 



0209 



IERR 

« ITTOUR! *040) 




c. 

* • • 

LEAVE GRAPHICS MODE 



0210 



IERR 

■ ITTOUR! *033) 



0211 



IERR 

■ ITTOUR! *062) 




c. 

• * * 

SAVE CURSOR POSITION AND ATTRIBUTES 



0212 



IERR 

« ITTOUR! *033) 



0213 



IERR 

- ITTOUR ! *067 ) 




c. 

• • • 

SELECT 

BOLD CHAR ATTRIBUTES 



0214 



IERR 

• ITTOUR! *033) 



0215 



IERR 

■ ITTOUR! *133) 
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0216 


ItRR * I TTOUR < 0 04 1 ) 

o:i7 


IERR * T TTOUR < *155) 


C. . . . 

HOVE CURSOR TO LOCATIONS FOR NAHES t.AREl 

orie 


IE'*R • I TTOUR ( • 033 ) 

0219 


I ERR • ITT0URC133) 

0220 


I ERR ■ l T TOUR (*061) 

0221 


I ERR « I TTOUR < *073 ) 

0322 


1ERR • ! TTOUR < * 063 > 

0223 


IERR • I TTOUR < *060 > 

0224 


IERR ■ I TTOUR (*146) 

0225 


TYPE 34 » ( NAHE6 ( 1 AC * INUH > t 2 AC* 1 1 15) 


r. f ♦ , 

RESTORE CURSOR 

0226 


IERR • I TTOUR < *033 ) 

0227 


IERR • I TTOUR ( * 070 ) 


c * * • • 

IF FILE 18 SMALL AND ALL DATA FROM THIS CHANNEL 


c • * • * 

HAS DEEM PLOTTED THEN THE DUFFER DOES NOT GET REFILLED 

0226 


IF ( < .NOT. MORE) .AND. FIRST) 00 TO 3002 


c • • • * 

IF FILE 16 NOT SMALL AND IS LARGER THAN THE DUFFER 


c • • • • 

DUFFER MUST RE REFILLED FROM REGINNING OF FILE 

0230 


IF < ( .NOT .MORE) • AND* ( *NOT .FIRST > ) GO TO 3000 

0232 

4000 

CONTINUE 

0233 


CLOSE < UNIT » I ) 


c • * * • 

CO TO TOP OF LOOP 

0234 


3C TO 1000 

0235 


STOF 

0236 


END 
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A. 4) MINC ENGINEERING CONVERSION 

Descriptions This program performs the conversion from AIM-65 
voltage format to engineering units. Instrumentation biases are not 
removed to engineering units. Instrumentation biases are not removed 
from accelerometer data; nor are the instrumentation offsets from the 
center-of-gravity accounted fur by this program. These functions 
are now incorporated into the MMI.E analysis program. 

Programming Note: The actual conversion is handled in the 

macro subroutine CONVERT which is written in assembly language. 

Listing: 

FORTRAN IV V02.S-2 Sun 07-F»D-82 01(54:20 RAGE 001 

0001 PROGRAM ENGR 

C.... THIS PROGRAM CONVERTS THE AIM-65 RAW DATA TO 
C.... ENGINEERING UNITS FOR USE BY THE MHLE PROGRAM 
C.... (NOTE: ALL ANGULAR UNITS ARE RADIANS) 

C.... THE AIM-65 DATA FILES ARE UNFORMATTED RECORDS 
C.... THE OUTPUT DATA RECORD ARE ALSO UNFORMATTED RECORDS 

C THE DATA RECORD FOR INPUT TO THE MMLE PROGRAM IS1 

C CTHA.O* AZ » AX • DE .PHI »P» AY »R» DA. DR3 

C IF EXTRA DATA IS INCLUDED THIS DATA RECORD IS ALSO ADDED) 

C CU» ALP.GDOT . BTA.PDOT .RD0T3 

0002 BYTE DATA ( 32 r 500) »NAME< 15) *NNAME< IS) 

0003 INTEGER ILINE ( 16 > (OFFSET 

0004 LOGICAL* 1 MORE 

0005 REAL AOUT (17)»LINE(16) rRUDBP(9> »RUDANG<9) . 

. AILBP<8) rAILANG(S) .ELV8P < 8 > . EIVANQ< 8 > 

C.... INITIALIZATION OF CONSTANTS 
C.... INITIALIZE RUDDER ARRAYS 

0006 DATA RUDBP /- 1 456 . f -1236 . ( -726.. -242.. 176.. 

. 566.. 900.. 1209.. 1293./ 

0007 DATA RUDANG / 17.0. 15.0. 10.0. 5.0. 0.0. 

. -5.0. -10.0. -15.0. -16.8/ 

C.... INITIALIZE AILERON ARRAYS 

0008 DATA AILBP /-2020 .» -1767 . .-1443 .» -1054 . » 

. -565.. -199.. 299.. 820./ 

0009 DATA AILANG / 17.6. 12.1. 6.1. 0.0. 

. -5.1. -8.5. -12.8. -17.6/ 

C.... INITIALIZE ELEVATOR ARRAYS 

0010 DATA ELVDP /-2040 . . -1064 . . -665.. -291.. 

. 97.. 403. » 1025.. 1699./ 

0011 DATA ELVANG / -27.5. -15.2. -10.2. -5.2. 

. 0.0. 4.8. 14.8. 26.6/ 

C.... INITIALIZE NAME ARRAY FOR FILES 

0012 DATA NAME / ' D ' » ' Y ' . ' 1 ' . ' ) ' . ' A ' » ' I ' . ' K' » ' 0 ' . ' 0' » '0 ' . 

, ' . ' . 'D' » 'A' » 'T' .0/ 

0013 DATA NNAME /' D '»' Y '»' 1 M L E O' »' 0' .' 0 ' . 

. '•'♦'D'.'A'.'T'.O/ 

C.... INITIALIZE DATA ARRAY 

0014 DATA DATA /16000*' '/ 

C.... INITIALIZE MORE DATA FLAG 

0015 DATA MORE /.FALSE./ 

C.... INITIALIZE OFFSET COUNTER 

0016 DATA OFFSET /0/ 
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0017 


0018 


0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 


0028 

0029 

0030 

0031 


0032 


0033 


0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 
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C..., DEFINE DEGREES TO RADIAN CONVERSION FACTOR 


r 

DATA 

DOR /5 / . / 

L 

c • • . * 

DEFINE CHANNELS 

c » . . . 

( 1 ) 

ROLL RATE 

c . • » • 

< 2) 

PITCH RATE 

c . • . . 

( 3) 

YAW RATE 

c . • • . 

( 4) 

BANK ANGLE 

c . • • * 

( 5) 

PITCH ATTITUDE 

c . • • • 

( 6) 

Z ACCELERATION 

c . ♦ ♦ . 

( 7) 

Y ACCELERATION 

c . • • • 

< 8) 

X ACCELERATION 

c . * • • 

( 9) 

TOTAL PRESSURE 

C ♦ * • i 

( 10) 

STATIC PRESSURE 

Ct.i* 

< 11 > 

RUDDER DEFLECTION 

c . . • . 

(12) 

AILERON DEFLECTION 

c . . . . 

( 13) 

ELEVATOR DEFLECTION 

c . . . . 

(14) 

TOTAL TENPERATURE 

c . * • . 

( 15) 

CHANNEL 15 

C 1 1 . . 

( 0) 

CHANNEL 0 


C 

C. . * . DEFINE TOF OF LOOP 
1000 CONTINUE 
C 

C.... GET FILE NAHE OF AIN-65 INPUT DATA FILE 
TYPE 1 

1 FORNAT (///////* 

• 'ft' '9X» 'Input the number of the AIN-65 date file 2 

ACCEPT 2 » IAIN 


2 FORNAT (114) 

ENCODE < 3 » 999 > NANE ( 8 ) ) IAIN 
999 FORNAT ( 13 ) 

C.... CHANGE ENCODED BLANKS BACK TO ZEROS 
DO 99B I *8 > 10 

IF < NANE ( I ) • EO • ' ') NANE < I ) * ' 0 ' 

C.... ALSO CHANGE THE NANE FOR THE OUTPUT FILE 
NNANE ( I ) * NANE < I ) 

998 CONTINUE 

TYPE 997 1 < NANE (I)»I*lrl4)«( NNANE <J)»J*1»14) 

997 FORHATt' ' 1 5X • ' INPUT FILE NANE 2 '*14Alt 
. 5X t ' OUTPUT FILE NANE! 'f!4Alt/> 

Cmm OPEN FILE FOR READING AND CONVERSION 

OPEN < UNI T*1 » NAHE*NAHE t TYPE* ' OLD ' 'ACCESS* ' SEQUENTIAL ' * 

• FORK* ' UNFORNA T TED ' f RECORDSIZE-32 » BUFFERCOUNT-2 1 

• READONLY) 

C.... OPEN FILE FOR OUTPUT OF CONVERTED ENGINEERING UNITS DATA 
OPEN (UNIT-2tNANE«NNANE'TYPE«'NEU' # ACCESS* 'SEQUENTIAL ' * 

. FORK* ' UNFORNATTED ' » BUFFERC0UNT*2 v DISPOSE* 'SAVE ' ) 

C 

C.... INITIALIZE TINE POINT COUNTER 
ICOUNT • 0 


C.... TOP OF READING DATA FRON FILE LOOP 
3001 CONTINUE 
C.... INITIALIZE JLAST 
JLAST * i 

C.... RESET NORE DATA ON FILE FLAG 
NORE * .FALSE « 


C.... READ DATA FRON FILE (UP TO 500 TINE POINTS) 
DO 4 J* 1 f 500 


READ < 1 r END*5 ) (DATA( I » J) t 1*1 t32) 

JLAST • J 

4 CONTINUE 

C.... SET NORE DATA IN FILE FLAG TO • TRUE • 

NORE - .TRUE. 

5 CONTINUE 

C..«. ADD NUNBER OF TINE POINTS TO TINE POINT COUNTER 
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0044 

C 

C . . . . 

c. . . » 

0045 

C . . . . 

0046 

0047 

0048 

0049 

0050 
0031 

19 


c . * . . 

0052 

C * . . . 

c . . . . 

0054 

0035 

0057 

C . . . . 

0059 

0060 
0062 
0063 

480 

0065 

0066 

490 


C . . . . 

0067 

0066 

0069 

0070 

0071 
0073 

499 

0074 

0075 

491 

0076 

500 
C . » * . 

0077 

0078 


0079 

501 

0080 

502 


C . . . . 

0081 

c * . » . 

0083 

0084 

506 

0085 

505 


JCOUNT - ICOUNT4 JLAST 
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top or convert data loot 

OET DATA FROM ARRAY 
tiO e K* 1 » JLA6T 

CONVERT THE DATA AND RUT IT INTO ILINE 
DO 19 INUH»1'1* 

I DAT AH * DATA < INUH42-1 »K) 

I DAT AL - DATA < I NUM* 2 # K ) 

CALL CON’ RT< IDATAHt IDATAL' IDATA) 

ILINE(INUM) * I DATA / 16 
CONTINUE 

CHECK FOR DATA COHRAT ARIL I T Y 

IF < <ILINE<9).GT.18C0>. AND. < ILINE < 9 > .LT . 1900)) GO TO 500 

DATA IS NOT COMPATABLE WITHOUT OFFSET 

T*Y OLD OFFSET 

INUM • 9+OFFSET 

IF < I NUM • GT *16) I NUM* I NUN - 1 6 

IF < < ILINE ( I NUH) . GT • 1600) .AND .( ILINE ( I NUH ) »LT • 1900 ) ) GO TO 490 
OLD OFFSET IS NO GOOD I FIND NEW OFFSET 
DO 460 IM»16 

IF ((ILINE (I). GT. 1800 )• AND<<ILINE<I > .LT . 1900 > ) IPOS * I 
CONTINUE 

IF ( I F*OS • LT . 9 ) IPOS - IPOS+16 

OFFSET * IPOS-9 

CONTINUE 

OFFSET IS GOOD) RECOVER DATA 
TYPE 499 1 OFFSET 

FORMAT ( 40X t ' DATA IS BEING RECOVERED 1 0FF6ET * 'tI3> 

DO 491 I ■ 1 r J 6 
INUM * I+OFFSET 
IF (INUM.GT.16) INUM* I NUM- 1 6 
LINE(I) • FLOAT ( ILINE ( INUM) ) 

CON, INUE 
GO TO 502 
CONTINUE 

DATA IS COMFATADLE WITH NO OFFSET 

DO 301 1*1 t 1 6 

L1NE(I) * FLOAT < ILINE ( I ) ) 

CONTINUE 

CONTINUE 

CHECK FOR GOOD DATA 

IF ( (LINE (10). GT. 500 . ) .AND. (LINE( 14) .GT • 900 . ) ) GO TO 505 
DATA MAY BE BAD I PRINT MESSAGE TO INFORM USER 
TYPE 506 fLINE(lO) t L INE ( 14 ) 

FORMAT ( 40X » * DATA MAY BE BAD '»2F10.0> 

CONTINUE 


C 

C CONVERT TO ENGINEERING UNITS FOR OUTPUT 

C CONVERT CHANNEL • 1 (ROLL RATE) 

0086 AOUT ( 1) * (LINE ( 1 > + 35. >*0. 0004266 

C CONVERT CHANNEL 4 2 (PITCH RATE) 

0067 AOUT < 2) * (LINE ( 2 >437 . >40 .0004271 

C.«... CONVERT CHANNEL 4 3 (YAW RATE) 

0088 AOUT ( 3) * ( L I NE ( 3 ) + 40 . )*0 . 0004276 

C CONVERT CHANNEL 4 4 (BANK ANGLE) 

0009 AOUT < 4> • LINE ( 4 ) *0. 000764240 . 02670 

CONVERT CHANNEL « 5 (PITCH ATTITUDE) 

0090 AOUT ( 5) *-< L INE ( 5 > *0 .0005078*0 .015460 ) 

CONVERT CHANNEL 4 6 ( NORMAL ACCELERATION) 

0091 AOUT < 6) * LINE ( 6 ) »0 . 0024498+0 . 076843 

C CONVERT CHANNEL 4 7 (LATERAL ACCELERATION) 

0092 AOUT ( 7) * L INE < 7)40.0002447+0,002430 

C CONVERT CHANNEL 4 8 (LONGITUDINAL ACCELERATION) 

0093 AOUT ( 6) * L INE < 8 ) *0 . 0009765+0 . 02432 


C CONVERT CHANNEL ♦ 9 (TOTAL PRESSURE) 

0094 AOUM 9) *LINE( 9 > *0 . 0051 97 9 . 8520 

C CONVERT CHANNEL 410 (STATIC PRESSURE) 

0095 AOUT (10) *-L INE < 10)40.010441+19.886 
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c CONVERT CHANNEL *U (RUDDER DEFLECTION) 

C RANGE LIMIT RUDDER DEFLECTION 

0096 IF ( L INE ( I ) . GT . 1293.) LINE< 11 >• 1293. 

0096 IF (LINE<ll).LT.-1456.) L I NE ( 1 1 >■- 1436 . 

C...... FIND RUDDER INDEX INTO DEFLECTION TADLE 

0100 I RUHR 1 • 2 

0101 DO 600 1*2*8 

0102 IF (LINE'. 11 ) . GT.RUDBP( I ) ) IRUDPl * HI 

0104 IRUD • IRUDP1-1 

0105 600 CONTINUE 

0106 RATRUD ■ ( L INE ( 1 1 >-RUDBP( IRUD >>/( RUDBP ( IRUDPl > -RUDBP ( IRUD > > 

0107 AOUT (11) - RUDANG( I RUD > 4RATRUD* ( RUDANG ( IRUDPl >-RUDANO( IRUD) ) 

C CONVERT TO RADIAN UNITS 

0108 AOUT (11) * AOUT ( 1 1 ) /DGR 

C...... CONVERT CHANNEL *12 (AILERON DEFLECTION) 

C RANGE LIMIT AILERON DEFLECTION 

0109 IF (LINE(ll).CT. 820.) LINE(12>> 820. 

0111 IF (LINE(U).LT . -2020. > L INE ( 1 2 > *-2020 . 

C FIND AILERON INDEX INTO DEFLECTION TADLE 

0113 IAILP1 - 2 

0114 DO 601 1*2*7 

0115 IF (LINE(12).GT.AILDR(I>) IAILP1 ■ 141 

0117 IAIL « IAILP1-1 

011$ 601 CONTINUE 

0119 RATAIL • (LINE<12>-AILBP(IAIL>>/(AILBP(IAILP1>-AILBP(IAIL>> 

0120 AOUT (12) - AILANG( I AIL > +RATAIL* ( AILANG ( I AILP1 ) -AILANG ( I AIL ) ) 

C CONVERT TO RADIAN UNITS 

0121 AOUT (12) - AOUT (12) /DGR 

C CONVERT CHANNEL *13 (ELEVATOR DELFECTION) 

C RANGE LIMIT ELEVATOR DEFLECTION 

0122 IF (LINE< 13) ,GT. 1.699.) LINE(13>» 1699. 

0124 IF (LINE< 13) .LT . -2040. ) L INE < 13 >-~2040. 

C FIND ELEVATOR INDEX INTO DEFLECTION TABLE 

0126 1ELVR1 * 2 

0127 DO 602 1*2*7 

0128 IF (L!NE(13).GT.ELVBP(I>) IELVP1 - 1+1 

0130 IELV ■ IELVP1-1 

0131 602 CONTINUE 

0132 RATELV - ( LINE ( 13 >-ELVBP( IELV ))/( ELVBP ( IELVP1 )-ELVBP( IELV ) ) 

0133 AOUT (13) ■ ELVANG( I EL V > +RATEL V* ( EL VANG < IELVP1 >-ELVANO( IELV) > 

C CONVERT TO RADIAN UNITS 

0134 AOUT (13) - AOUT (13) /DGR 

C CONVERT CHANNEL *14 (TEMPERATURE) 

0135 AOUT (14) • LINE(14>*1. 02072-530. 33 
C.... DETERMINE ESTIMATE OF ALTITUDE 

0136 IF (AOUT(IO).LT.O) A0UT(10>»0. 

0138 H « 145448. * ( 1 . - ( ( AOUT ( 1 0 > / 1 4 . 696 >**0 . 19026)) 

C.... URITE DATA TO OUTPUT 

0139 URITE ( 2 ) AOUT ( 5 > . AOUT ( 2 > * AOUT ( 6 ) . AOUT ( 8 ) * AOUT ( 1 3 ) * 

. AOUT ( 4 ) * AOUT ( 1 > * AOUT ( 7 > * AOUT ( 3 > * AOUT (12)* AOUT (11) 

C.... TYPE OUT ALTIDUE* ODAR, AND TEMPERATURE 

0140 PHI - AOUT ( 4 ) *DGR 

0141 THA - AOUT ( 5 )*DGR 

0142 TYPE 700 . H . AOUT (9).A0UT(14) *PHI * THA 

0143 700 FORMAT < ' ' . IF 10 . 1 . 1F9 . 4 . 1F8 . 1 * 2F7 . 3 ) 

0144 8 CONTINUE 

0145 IF (MORE) GO TO 3001 

0147 CLOSE < UNIT* 1 ) 

0148 CLOSE ( UNI T*2 ) 

C.... TYPE OUT TIME POINT COUNTER 

0149 TYPE 806 * I COUNT 

0150 806 F0RMAT<40X. 'TOTAL TIME POINTS - '.110) 

C. . . . GO TO TOP OF LOOP 

0151 GO TO 1000 

0152 STOP 

0153 END 
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Subroutine CONVRT 

Description: This subroutine converts the AIM-65 data to 

integers for calculation of engineering units. 

Listing: 


CONVRT MACRO V04.00 28- JAN-82 02: OS 1 03 PAGE 1 

.TITLE CONVRT 

.S8TTL CONVERSION ROUTINE 



• GLOBL 

CONVRT 


CONVRT: 

CLC 




CLR 

R1 



BIC 

♦177700>92<R3> 

9PEEL OFF 1ST 2 BITS 


BIC 

•177700»94(R5) 

IOF THE ARG6 


HOVB 

92 < R5 > >Rt 

1 PUT HIGH 6 BITS INTO R1 


ASH 

♦ 6 1 R 1 

ISHIFT LEFT 6 


ABB 

94 (R5) t R1 

1 ADD IN LOU 6 BITS 


MOV 

R1»96(R5) 

1 PLACE IN RESULT AkG 


ROL 

96 < R5 > 



ROL 

96(R5) 

9 ROTATE LEFT 4 


ROL 

96(R5) 



ROL 

96 (R5 ) 


tst: 

CMP 

96 < R5 ) t #100000 

9 SEE IF POSITIVE OR NEGATIVE 


BMX 

NEGA 


pos: 

COM 

96 \ R5 ) 

9 POSITIVE NUMBERS ARE l'S COMPLIMENTED 


ABB 

96 ( R5 ) f #1 

I THEN ADD 1 


RTS 

PC 

9 DONE 

nega: 

NEG 

96(R5> 

9 NEGATIVE t'S ARE 2'S COMPLIMENTED 


r 

PC 



.ENl> 
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A. 5) MINC INSTRUMENTATION CALIBRATION 


Description: This program is used to analyze the calibration 

data collected by the AIM-65. Gains and offsets can be adjusted by 
the user to minimize an error squared cost function. This allows 
the calibration of the rate gyros in a dynamic mode without assump- 
tions made about response of the calibration pendulum. 

Listing : 


FORTRAN I V V02.5-2 Set 30- Jen-82 02154108 


PAGE 001 


0001 


0002 

0003 

0004 

0005 


0006 


0007 


0008 

0009 


0010 

0011 

0012 

0013 

0014 

0015 


PROGRAM CAL 1 B 

C,... THIS PROGRAM PROVIDES A MEANS TO CALIBRATE THE 
C.... THE VARIOUS TRANSDUCERS IN THE SYSTEM 

C.».. USING THE AIM-65 RECORDED DATA FILES (UNFORMATTED RECORDS) 
BYTE NAME (15)#DATA(32# 500 > 

INTEGER MDASBP(32 ) » ILINE ( 16 ) 

LOG I CAL* 1 MORE 

C.#.. INITIALIZE MDAS ANGLE ARRAY 


C. • 


DATA MDASDP /-1974t 

-1848# 

-1724# 

-1599. 

- 1472 # 

-1343# 

-1218# 

-1095# 

- 968 t 

- 842# 

- 719# 

- 594# 

- 469 t 

- 350# 

- 228 # 

- 107# 

1 9 » 

139# 

257# 

377# 

496 1 

616# 

736# 

354# 

975 # 

1094# 

1217# 

1336# 

1 455 f 

1574# 

1691# 

1810/ 


INITIALIZE NAME ARRAY FOR FILES 
DATA NAME /'D'#'Y'#'l'#'l'»'A't'I'f'M'»'0'#'0' 
' » ' t ' D ' # ' A ' # ' T ' #0/ 


C • 


c. 


INITIALIZE DATA ARRAY 
DATA DATA /16000*' '✓ 
DEFINE CHANNELS 


C » . . . 

( 1) 

ROLL RATE 

c « . . * 

( 2) 

PITCH RATE 

c * . • * 

( 3) 

YAW RATE 

c » • • • 

( 4) 

DANK ANGLE 

c . • . « 

( 5) 

PITCH ATTITUDE 

c . • . • 

( 6) 

Z ACCELERATION 

c * . . » 

( 7) 

Y ACCELERATION 

c ♦ * ♦ • 

( 8) 

X ACCELERATION 

c . . • • 

( 9) 

TOTAL PRESSURE 

c * . • * 

(10) 

STATIC PRESSURE 

c * * » • 

(11) 

CHANNEL 11 

c . . . « 

(12) 

CHANNEL 12 

c * * * * 

(13) 

PENDULUM ANGLE 

c • • . • 

(14) 

TOTAL TEMPERATURE 

c . . • * 

( 15) 

CHANNEL 15 

c . . . • 

( 0) 

CHANNEL 0 


C. 

1000 
C * . • « 


INITIALIZE MORE DATA IN 
DATA MORE /.FALSE,/ 
CONTINUE 

GET FILE NAME OF AIM-65 


FILE FLAG 


INPUT DATA FILE 


' 0 ' # 


TYPE 1 

1 FORMAT (///////# 

• ' $ ' # 9X f * Input the number of the AIM-65 beta file 1 

ACCEPT 2t I AIM 

2 FORMAT (114) 

ENCODE ( 3 # 999 r NAME ( B > ) IAIM 
999 FORMAT (13) 


) 
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0016 

0017 

0019 

0020 
0021 

0022 


0023 

0024 

0025 

0026 


0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 


0042 

0043 

0044 

0045 


0046 

0047 

0048 

0049 

0050 

0051 

0052 


0053 

0055 

0057 

0058 

0059 
0061 
0062 

0063 

0064 


C.... CHANGE ENCODED BLANKS BACK TO ZEROS 
DO 998 I *8 « 10 

IF ( NANE ( 1 ) . EQ * ' ') NAME ( I >• ' 0 ' 

998 CONTINUE 

TYPE 997# < NAME (X)#X*1#14) 

997 FORMAT < ' '#15X#'FILE NAHE t '#14Al#/> 

C.... OPEN FILE FOR READING AND CONVERSION 

OPEN (UNIT-1 #NAME*NAME# TYPE* ' OLD'# ACCE86*' SEQUENTIAL' • 

. FORM* ' UNFORMATTED' # RECORDS X ZE-32 # BUFFERCOUNT-2 # 

. READONLY) 

C.... READ IN THE ANGULAR OFFSET AND TIME INCREMENT 
TYPE 401 

401 FORMAT < ' ♦ ' # 5X # 'Input the channel nuibtr for ovtaut! ' > 
ACCEPT * # ISAVE 

DELT * 0.05 

C.... OUTPUT THE PENDULUM# DERIVED PENDULUM RATE. 

C.... RATE GYRO AND ACCELEROMETER OUTPUTS 
C.... SET INITIAL CONDITION ON PENDA 
ANGLEO « 0. 

C.... REWIND FILE READ DATA AGAIN 
REWIND 1 

C.... TOP OF READING DATA FROM FILE LOOP 

3001 CONTINUE 

C.... INITIALIZE JLAST 
JL AST * 1 

C.... RESET MORE DATA ON FILE FLAG 
MORE * .FALSE. 

C.... READ DATA FROM FILE (UP TO 500 TIME POINTS) 

DO 4 J* 1 # 500 

READ (l.END-5) <DATA< I # J) # 1*1 #32) 

JLAST * J 

4 CONTINUE 

C.... SET MORE DATA IN FILE FLAG TO .TRUE. 

MORE * .TRUE. 

5 CONTINUE 

C.... TOP OF CONVERT DATA LOOP 

3002 CONTINUE 
TYPE 402 

402 FORMAT (' t • #5X # ' Innut AO# Al# and antfular initial condition! 
ACCEPT t # AO# Al # AXNXT 

C.... SET INITIAL CONDITIONS 
APRED • AXNIT 
SUM - 0. 

TYPE 54 

54 FORMAT < 10X # ' PEND ANGLE PEND RATE ANGULAR RATE ' # 

. ' PRED ERROR SO') 

C.... GET DATA FROM ARRAY 
DO 8 K*1 .JLAST 

C.... CONVERT THE DATA AND PUT IT INTO ILINE 
DO 19 XNUM-1.16 
IDATAH - DATA ( INUH*2-1 #K ) 

IDATAL - DATA ( INUM92 # K ) 

CALL CONVRT ( IDATAH# IDATAL# I DATA ) 

ILINE ( INUM ) • IDATA/16 
19 CONTINUE 

C.... CONVERT TO ENGINEERING UNITS FOR OUTPUT 
C«... GET PENDULUM ANGLE CONVERSION 
C.... RANGE LIMIT MDAS VALUE 

IF (ILINE (13). LT «MDASDP( 1 ) ) 1LXNE(13) - MDASDP(l) 

IF (ILINE (13). GT. MDASDP ( 32 ) ) ILINE ( 13) - MDASBP(32) 

IL - 1 

DO 32 IMDAS-1.31 

IF (ILINE (13). GT. MDASDP ( I MDAS ) ) IL - XMDAS 
32 CONTINUE 

XLP 1 * IL + 1 

RATMD * FLOAT ((ILINE (13) -MDASDP (XL) ) ) / 

. FLOAT ( ( MDASDP ( ILP1 >-MDASBP( IL ) ) ) 

ANGLE * 10 « tFLOAT ( XL ) +RATMDB10 . +CONST 


' ) 
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006? 

0066 


RATE • < ANGLE -ANGLEO > /DEL T 

APRED - APRED* < FLOAT ( ILINE ( I SAME ) f AO > 1A1 > IDELT 


0067 

0066 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 


SUP » SUM ( ANGLE-APRED > •• 2 

C. • . ♦ PRMT OUT LINE 

TYPE 35# ANGLE tRATE# ILINE( I GAVE ) » APRED# SUM 
S3 PORN AT (6X»2ri2*4fIII0#6X#2G14«4) 

ANGLEO - ANGLE 
8 CONTINUE 
GO TO 3002 
CLOSE (UMIT-l) 

C. . • . GO TO TOP OF LOOP 
GO TO 1000 
STOP 
END 
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A- 6) MINC MHLE SET-UP 


V , 

Cff- 


poor 


Description: This program is an interactive program which is 

used to set up the input data for the MMLE program. Nondiroensional 
derivatives, geometric, and inertial data for a given airplane are 
input and used to form the initial estimate for the MMLE program. 


Listing: 


FORTRAN IV V02.5-2 Sun 07-Fsb~82 0! 159*18 


RAGE 001 


0001 


0002 

0003 

0004 

0005 

0006 
0007 

oooe 

0009 


0010 


0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 


PROGRAM SET 

C.... THX6 PROGRAM SETS UP THE DATA USED IN MINX-MNt.E 
C.... DEFAULT VALUES (IF THEY EXIST) ARE SHONN AF ^ER EACH QUESTION. 
REAL A<5»4)»DC5'4)'AA<5t4'»*8<5'4) 

RFAL ZERO (4) . & I AS ( 4 ) » D 1 < 7 . 7 ) 

C.... VARIABLES TO HOLD CHARACTER INPUT 
BYTE NAME ( 1 5 ) » BANNER ( 80 * 4 > 

DOUBLE PRECISION CASEtTEMP 
C.... INITIALIZE INPUT AND ARRAY VARIABLES 

DAT A VALUE ' I VALUE t AA t BB/0 . ♦ 0 • 20*0 • » 20*0 . / 

DATA D1 t BIAS rZER0/49*0. t 4*0. *4*0./ 

DATA CASE* TEMP/' '.' '/ 

C.... INITIALIZE NAME ARRAY FOR FILE 

DATA NAME /'D' t 'Y' # ' 1 ' t ' J ' t 'S' » 'E' t 'T' # '0' t '0' # 'O' > 

. '.'r'D'#'A'#'T'fO/ 

c.... INITIALIZE banner 

DATA BANNER /320*' '/ 

C.... SET DEFAULT VALUES 
NN * 200 

ITR ■ 10 

MZ ■ 7 

HAPR ■ 0 

I SUB • 0 

HH * 0.10 

XLA * 1.0 

C..«. GET FILE NAME FOR SET-UP DATA 
TYPE 11 

11 FORMAT (/////» '$' t9X# * Input the number of tha HLC data filo t ' > 
ACCEPT 12 1 INUM 


0021 12 FORMAT < 14 ) 

0022 ENCODE < 3 > 999 • NAME(8> ) INUM 

0023 999 FORMAT < 13) 

C.... CHANGE ENCODED BLANK BACK TO ZEROS 

0024 DO 998 I-8rl0 

0025 IF (NAME(I).EO.' ') NAHE(I>»'0' 

0027 998 CONTINUE 

0028 TYPE 997 ? < NAME (I)rX*l»14) 

0029 997 FORMAT < ' '*5X* 'OUTPUT FILE NAME* ' 1 14AI ) 

C.... OPEN UNIT 1 FOR OUTPUT OF SET-UP DATA 

0030 10 CONTINUE 

0031 TYPE 30 

0032 30 FORMAT ( //*' ' t 10X» ' Indicate twr# of run*'* 

. /•' 'flO X*'Xf Longitudinal twra •L*'» 

. /*' 'flOXf'If Lataral-Dirgctional twra # D # '» 

. /* '*' »10X# 'Saloct run* ') 

0033 ACCEPT 40. CASE 

0034 40 FORMAT (1A8) 

0035 IF ( CASE .EQ • ' L ' > OPEN (UNIT-1 .NAME-NAME . TYPE-'NEW' . 

. RECORDS I ZE-96. INITIAL8IZE-50»DXSP08E-'8AVE' ) 

0037 IF (CASE .EQ. 'D' ) OPEN (UNIT-1 .NAME-NAME . TYPE" 'NEW' . 

. RECORDS! ZE-96. INI TIAL3XZE*50fDI8P08E* # SAVE ' ) 

0039 IF ((CASE.NE. 'L' ). AND. (CASE. NE.'D')) GO TO 10 

C.... START INPUT OF DATA FOR LATER OUTPUT 

C.... BASIC DATA FOR EITHER LONGITUDINAL OR LATERAL-DIRECTIONAL CASE 
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0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 
005? 
0053 


0054 

0055 

0056 

0057 
0056 
0059 
0061 

006? 

0063 

0064 

0065 
0067 

0066 

0069 

0070 

0071 

0073 

0074 

0075 

0076 

0077 

0079 

0080 
0081 
0082 
0083 

0085 

0086 

0087 

0088 
0089 

0091 

0092 

0093 

0094 

0095 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 


0105 


urksmal 

OF POOR QUALITY 


C.... GET BANNER 
Type 4i 

41 FORMAT ( ' ' 1 10X t ' Inrut banner lint #11 < ur to 80 char) ') 

ACCEPT 42 * < BANNER < 1»1>*I»1»80> 

42 FORMAL < 40A1 ) 

TYPT i 3 

43 FORMAT ( ' '9i0X9'Inrut btnntr lino #2 S (ur to 60 char) ' ) 
ACCEPT 42 » < BANNER ( I r 2 ) * I ■ 1 » 80 ) 

TYPE 44 

44 FORMAT ( ' ' 9 IOX 9 'Inrut btnntr lint #31 (ur to 80 ehar> ' ) 
ACCEPT 42»<6ANNER<l'3>'I«l'0O> 


TYPE 45 

45 FORMAT < ' '9IOX9 'Inrut btnntr lint 94 1 (gr to 80 char) 9 ) 

ACCEPT 42 » < BANNER < I»4)»l*l»80) 

C.... GET NUMBER OF DATA POINTS 
TYPE 50 

50 FORMAT < ' •' # 10X ' Inrut tht rtuaber of data rointel (default 200) ') 

60 FORMAT ( 2F 1 0 • 0 ) 

ACCEPT 61 « 1 VALUE 

61 FORMAT ( 1 1 5 > 

IF ( I VALUE *DT *0) NN-IVALUE 
I VALUE • 0 

C.... GET NUMBER OF ITERATIONS 
TYPE 70 

70 FORMAT < ' • ' • 10X » ' Inrut tht nuabtr of itarational (default 10) ' ) 
ACCEPT 61 f I VALUE 
IF ( IVALUE .GT.O > XTR-XVALUE 
I VALUE ■ 0 

C.... GET NUMBER OF STATE OBSERVATIONS 
TYPE 80 


60 FORMAT ( ' t ' » 10X » ' I nrut tht nuabtr of atatael (default 7) ' ) 

ACCEPT 61 t IVALUE 
IF (IVALUE. GT.O) MZ" I VALUE 
IVALUE ■ 0 s 

C...» GET APRORI CONTROL NUMBER 
TYPE 90 

90 FORMAT < 9 '*10X9 'Inrut tht control nuabtr for tht a»rori ortion'#/ 
• ' t ' $ 10k t 9 (dtfault 01 no arrori inrut): ' ) 

ACCEPT 61 » I VALUE 

IF ( IVALUE .OT.O) MAPR*I VALUE 

IVALUE - 0 


C*.«. GET SUBROUTINE TRACE FLAG 
TYPE 91 

91 FORMAT ( '♦ ' » 10X» ' Inrut tht aubroutint tract flail (dtfault 0) ') 
ACCEPT 61 t IVALUE 
IF ( IVALUE. GT.O) ISUB-IVALUE 
IVALUE ■ 0 

C.... GET TIME INCREMENT 
TYPE 100 

100 FORMAT ( # 10X . 0 Inrut tht tint incrtntnt) (dtfault 0 . 10 ) 9 ) 
ACCEPT 60 r VALUE 
IF (VALUE .GT.O.) HH-VALUE 
VALUE ■ 0. 

C...« GET DIAGONAL MULTIPLYING FACTOR 
TYPE 110 

110 FORHAT('t'*iOX*' Inrut tht diaaonal nuH factor! (dtfault 1 . 0 ) 9 ) 
ACCEPT 60 » VALUE 


IF (VALUE. GT.O. ) XLA-VALUE 
.... WRITE OUTPUT TO FILE 

WR I TE ( 1 # 1 40 ) ( ( BANNER ( ItJ>.I*l»90).J»l .4) 
PRINT 141 9 ( (BANNER(l9j)9l«l980)9j«l94) 
WRITE ( 1 9 150 )NN9 ITR 9 MZ »MAPR 9 1 SUB 
UR I TE ( 1 9 160 )HM9 XLA 

140 F ORMAT ( 80A1 ) 

141 FORMAT < 5X 9 80A1 ) 


150 FORMAT (7110) 

160 FORMAT ( 6F1 0 • 4 ) 

.... ENTER THE MASS AND GEOMETRIC DATA 
. C GET AIRPLANE WEIGHT 
TYPE 170 
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0106 170 F0RMAT('f'*10X#'Innut tha airalana waiaht (in 1 1> > t ') 

0107 ACCEPT 60* WE 10HT 

0100 AMBB • WEIGHT /32 • 1 74 

C.... OET AIRPLANE WING AREA 
0107 TYPE 180 

0110 180 FORMAT* '9 ' • 10X* ' Irpul tha •IrFlint ulna araa (In ftt*2>! ') 

0111 ACCEPT 60 »S 
C.... GET AIRPLANE CfcAR 

0112 TYPE 17C 

0113 170 FORMAT ( *10X» 'Input tha air Plan* ebar (In ft>! ') 

0114 ACCEPT 60* CDAR 

C.... GET AIRPLANE WING SPAN 

0115 TYPE 175 

0116 175 FORMAT* 't '* 10X* ' Inaut tha airnlana ulna anan (In ft)! ') 

0117 ACCEPT 60* SPAN 
C.... GET ALTITUDE FOR RUN 

0116 TYPE 200 

0119 200 FORMAT < '• ' # 10X* 'Input alt.tutf* of run <ln ft)t ') 

0120 ACCEPT AO.M 

C.... CONFUTE ATMOSPHERIC CONDITIONS FROM APPROXIMATE RELATIONS 

0121 TA • 818. 7-N«0. 00398 

0122 IF <TA»LT .390. > TA-390. 

0124 PA • 21 16.229 < 1 . -0.00000667849H) 995. 2932 

0129 RNO ■ PA/ ( 1716. 849 TA) 

0126 AVEL • 49. 029 SORT < TA) 

0127 PRINT 209»PA»RH0»TAt AVEL 

0128 203 FORMAT < ' PA .•• '.F10 4»' RNO • '.F10.6. 

. ' TA • ' * F 1 0 .. 4 * ' A60N1C - '.F10.4) 

C.... ENTER THE STEADY-STATE FLIGHT CONDITIONS 
C.... GET THE VELOCITY 

0129 TYPE 210 

0130 210 FORMAT ( ' 9 ' * 10X* ' Innut tha ataadv atata valocitv (in ft/aac)! 

0131 ACCEPT 60 *U1 

0132 CL1 *2 • S WEIGHT / ( RHOtUl *U1 98 ) 

C.m. GET THETA 

0133 TYPE 220 

0134 220 FORMAT ( * 6 ' * 10X* ' Input tha ataadv atata thata (In daa>1 ' ) 

0136 ACCEPT 60* THA 

0137 THA - THA/DGR 
C.m. GET PH! 

0130 TYPE 230 

0139 230 FORMAT ( ' f ' * 10X * * Input tha ataadv atata ahi (in daa>! 

0140 ACCEPT 60* PH I 

0141 PHI - PHI/DGR 

C.9.. ASSUME STEADY STATE ALPHA 18 STEADY STATE THETA 

0142 ALP » THA 

0143 8 INALP ■ SIN (ALP ) 

0144 C08ALP ■ COS ( ALP ) 

0145 6 INTHA - SIN(THA) 

0146 COSTHA - COS(THA) 

0147 81NPHI » SI N < PHI ) 

0148 C0SPH1 • COS (PHI > 

0149 TANTHA - SINTHA/COSTHA 
C«... ENTER THE INERTIAL DATA 
C • • * • GET I YYD 

0150 TYPE 260 

0151 260 FORMAT ( ' ♦ # * 10X* ' Innut IYYD (in aluA9ft992M ' > 

0152 ACCEPT 60 * AI Y 

C • * • * GET 1XX6 

0153 TYPE 270 

0154 270 FORMAT ('•'*! OX* ' Innut XXXD (in aluatfttS2>! ') 

0155 ACCEPT 60* A IX 

C * 9 # # GET IZZD 

0156 TYPE 280 

0157 280 FORMAT ( ' t ' * 10X* * Innut IZZD (in elu*tftt*2>! 4 > 

0158 ACCEPT 60* AIZ 

C. ... GET IXZP 

0159 TYPE 290 

0160 270 FORMAT ( ' • ' * 10X * ' Innut IXZB (in aluA9ft992>$ ' > 



145 


ORIGINAL PAGE IS 
OF POOR QUALITY 


OU1 

0142 

0144 

0144 


0147 

0166 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0161 

0182 

0183 

0184 

0185 

0186 

0187 

0188 
0169 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 


0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 


0209 

0210 
0211 
0212 




ACCEPT 40 p A I XZ 
C.... SPLIT F OK CASES 

IF < CASE • EO • 'L' ) 00 TO 300 
IF (CASE.EO. 'D' > GO TO 500 

C.... IF THIS STATEMENT IS REACHED THEN AN ERROR MUST HAVE OCCURED 
STOP 

C.... LONGITUDINAL CASE 
C 

300 CONTINUE 
TYPE 310 

310 FORMAT ( * ' > 10m p ' Infut CXU» 0 or It ') 

TYPE 311 

311 FORMAT < ' • ' » 10X » ' < 1 if this it • viriiMf and 0 otM»rwi»«> '> 
ACCEPT 60pA(2p2>»AA(2p2> 

C 

TYPE 330 

330 FORMAT < ' • ' p 10X p ' Input CXAp 0 or It ') 

ACCEPT 60pA<2p3)'AA<2p3) 


TYPE 340 

340 FORMAT ('S'rlOXt' Input CXDE p 0 Of It ') 
ACCEPT 60fS(2f 1>»SS(2»1) 

TYPE 350 

350 FORMAT < ' • ' » 10X t ' I r>f ut CZUp 0 or It ') 
ACCEPT 60pA(3p2)»AA(3p2> 


TYPE 360 

360 FORMAT< p 10X p ' Input CZAp 0 or It ') 
ACCEPT 60pA<3p3>’4A<3p3> 


TYPE 370 

370 FORMAT ('S'vlOXt' Input CZDEt 0 Of It ') 
ACCEPT 60pB<3p1)pBB<3p1> 


TYPE 390 

390 FORMAT < ' 4 ' p 10X p * Input CHO» 0 or It M 
ACCEPT 60pA(1p1) p AA( 1 p 1 ) 


TYPE 400 

>00 FORMAT < ' 4 # p 10X p ' Input CMU» 0 or It ') 
ACCEPT 60pA(1p2>pAA(1p2) 


TYPE 420 

420 FORMAT < ' 4 ' p 10X* ' Input CMA» 0 Of It ') 
ACCEPT 60pA(1p3) p AA < 1 » 3 ) 


TYPE 440 

440 FORMAT < ' 4 ' p 10X p ' Inf ut CHDE» 0 Of 1 1 ') 
ACCEPT 60 p B( 1 p 1 ) p BB< 1 p 1 ) 


C*..p DEFINE OTHER t A3 MATRIX ELEMENTS 
A < l p 4 ) • 0.0 

A ( 2 p 1 > • 0.0 

A ( 2 p 4 > '-CQSTHAS32 * 1 74 

A ( 3 p 1 ) • 1.0 s 

A ( 3 p 4 ) **6 1 NTHASC08PH1 432 • 174/U1 

A < 4 * 1 ) - C08PHI 

A ( 4 p 2 > • 0.0 

A < 4 p 3 ) • 0.0 

A < 4 p 4 ) • 0.0 

*.... ALL OTHER CB3 MATRIX ELEMENTS ARE ZERO 
C...« ALL OTHER CAA3 MATRIX ELEMENT6 ARE ZERO 
C.... DEFINE ADDITIONAL ELEMENTS OF THE C8B3 MATRIX 
BB < 1 p 3 > » 1.0 
BB< 2 p 3 ) • 1.0 
BB( 3 p 3 ) - 1*0 
BB ( 4 p 3 > • 1.0 
C.... SKIP LATERAL DIRECTIONAL INPUT CASE 
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itir if n 'litiitf mill 


0213 


0214 

021 * 

0214 

0217 

0210 

0214 


0220 

0221 

0222 

0223 

0224 

0225 


0224 

0227 

0228 


0224 

0230 

0231 

0232 

0233 

0234 

0235 
0234 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 
0244 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0254 

0257 

0258 

0259 

0240 

0241 

0242 

0243 

0244 


C • • • • 

c 

500 

510 

511 


520 


530 


540 


550 


540 


570 


580 


590 


400 


410 


420 


430 




C • • • § 

c * • • • 


00 TO 700 

LATERAL DIRECTIONAL CASE 


WIGWWJ. PACH is 

quality 


CONTINUE 
TYPE 910 
FORMAT < * '.IOX. 


CL A# 


TYPE 511 

FORMPTt *%' • IOX. ' <1 If this 
ACCEPT 40 f A ( 1 1 1 > • AA < 1 1 1 > 


0 Of It ') 

it i viriibli ond 0 othtrwi*#) 


TYPE 520 

FORMAT ( '•' fIOXf 'I nrut CLR. 0 or It ') 
ACCEPT 40tA<l»2)tAA(l»2) 


TYPE 530 

FORMAT ( ' • ' » IOX t 'Inrut CLD* 0 or It ') 
ACCEPT 40»A(lt3)fAA(l»3) 


TYPE 540 

FORMATC't'.lOX.'Inrut CLDAt 0 or It '> 
ACCEPT AO.Bt 1 9 1 ) f 88( 1 f 1 ) 


TYPE 550 

FORMAT < ' ♦ ' 9 IOX 9 ' Inrut CLDR» 0 or It ') 
ACCEPT 409D(lt2)98D(l92) 


TYPE 540 

FORI *T< ' • ' 9 10 X 9 ' Inrut CNP 9 0 or It ') 
ACCEPT 40t At 2 9 1 ) 9 AA ( 2 9 1 ) 


TYPE 570 

F ORMAT < ' ♦ ' 0 1 OX 9 ' Inrut CNR 9 0 or It ') 

ACCEPT 409A(2t2)9AA(292) 


TYPE 500 

FORMAT ( ' 4 ' 9 IOX 9 'Inrut CN09 0 or It ' ) 
ACCEPT 40»A<293)tAA<2f3) 


TYRE 590 

FORMAT<'f'9lOXo'Ir>rut CNDA 9 0 or It ' ) 
ACCEPT 40'»<2'l)9»8(29l> 


TYPE 400 

FORMAT < ' 4 ' 9 IOX 9 ' I nr ut CNDR 9 0 or It ') 
ACCEPT 409B(2»2)988<2t2) 


TYPE 410 

FORMAT ( ' 4 ' 9 IOX 9 ' Inrut CY8» 0 or It ') 
ACCEPT 40»A(3»3>»AA(3f3> 


TYPE 420 

FORMAT * ' 4 ' 9 IOX 9 ' Input CYDAt 0 or It ') 
ACCEPT 40 9 B <3 9 1 ) 9 BB ( 3 9 1 ) 


TYPE 430 

FORMAT < # t / 9lOX9' 1 nr ut CYDR . 0 or It ') 
ACCE *T 409B(392>9BB(392) 

DEFINE OTHER t A3 MATRIX ELEMENTS 
A< 1 9 4 )»0 • 0 
A < 2 » 4 > »0 . 0 
A < 3* 1 )«6INALP 
A ( 3 9 2 )■ -COS ALP 

A ( 3 9 4 >»32 . 1 748C08THA8C08PH1/U1 
A ( 4 . 1 ) » 1 ♦ 0 

A ( 4 9 2 ) ■COSPHI 4TANTHA 
A < 4 » 3 ) »0 . 0 
A< 4 9 4 >«0 • 0 

ALL OTHER CEO MATRIX ELEMENTS ARE ZERO 
ALL OTHER CAA3 MATRIX ELEMENTS ARE ZERO 
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0265 

0266 
0267 
0266 

0269 

0270 

0271 

0272 

0273 

0274 


0275 

0277 

0279 

0260 

0281 

0262 

0283 

0264 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 


DEFINE ADDITIONAL ELEMENTS OF THE (663 MATRIX 

96U *3 )*1 .0 

88 < 2 * 3 > • 1 • 0 

8D(3i3)«l .0 

DD< 4 9 3 > * 1 .0 

C.... OUTPUT INFORMATION 
700 CONTINUE 
HU » 3 

HZ • 4 


C • • • # 
710 


HY ■ 7 

ECHO DATA MCK 

PRINT 710*8* WEIGHT *8PAN*C8AR »U1 *RHO* ALP*THA*PH1 *AIY»AIX» 
. AIXZ * AXZ »CL1 

FORMAT (' AIRPLANE INPUT DAT A ' * / • 

>/i 
>/• 

) / 1 
f /i 
>/• 

./* 

./t 
f/* 
t/p 


0 

U f. NG AREA 

(IN FTS82) 

■ *»ri2.4. 

0 

WEIGHT 

(IN L8S > 

■ ' »F 12 • 4 1 

0 

WING SPAN 

(IN FT) 

■ ' * F 12 • 4 » 

0 

C6AR 

(IN FT) 

• ' *F12. 4» 

0 

AIRSPEED 

UN FT/SEC) 

■ ' *F 12 . 4 » 

/ 

DENSITY 

UN 8LU0/FTM3) 

• ' *F1 2 • 4 * 

4 

ALPHA1 

(IN RAD) 

• ' *Fl2»4i 

0 

THCTA1 

(IN RAD) 

• ' *912*4 • 

0 

PHI 1 

(IN RAD) 

• ' *F 12» 4 * 

0 

IYY 

UN 8LUG9FTM2) 

• '.F12.4. 

0 

xxx 

UN 8LU08FTSS2) 

• ' * F 1 2 < 4 r 

0 

IXZ 

UN 8LUGSFT tS2 ) 

■ ' »F 12 > 4 • 

0 

IZ’ 

UN 8LUG8FT6S2 ) 

• '.FI2.4. 

0 

CL 1 


■ ' *F 1 2 • 4 • 


C* . . • SPLIT FOR CASES 

IF (CASE.EO. 'L' ) 80 TO 750 
IF < CASE * £Q « 'D' > 00 TO 850 
STOP 

C.#.. LONGITUDINAL CASE 
750 CONTINUE 

C.... GET THE WEIGHTING MATRIX DIAGONAL VALUES 
TYPE ’70 

770 FORMAT ('•'*' Input th# weighting factor for ot 
ACCEPT 60 * D1 ( 1 * 1 ) 


( / 9 
»//> 


TYPE 780 

760 FORMAT < 9 % * t ' Input tho weighting factor for velocity! 
ACCEPT 60 * D1 (2* 2 ) 


TYPE 790 

790 FORMAT ('$'•' Input the weighting factor for aloha! ') 
ACCEPT 60* D1 ( 3* 3 ) 

TYPE 800 

900 FORMAT ('•'*' Input tho weighting faetor for thotal ') 
ACCEPT 609DK494 ) 


TYPE 810 

810 FORMAT ('$'*' Inout tho weighting fector for o0ot! '♦ 
ACCEPT 409DK595) 


TYPE 820 

820 FORMAT ('•'*' Input tho weighting factor for ax! ') 
ACCEPT 40* D1 < 6*6 > 

TYPE 830 

830 FORMAT (' S 9 t ' Input tho weighting factor for azi ' ) 
ACCEPT 60* D1 < 7 9 7 ) 

.... SKIP PAST LATERAL DIRECTIONAL CASE 
00 TO 950 

.... LATERAL DIRECTIONAL CASE 
850 CONTINUE 

.... GET THE WEIGHTING MATRIX DIAGONAL VALUES 
TYPE 070 

870 FORMAT (' % ' 9 * Ineut tho weighting factor for et ') 
ACCEPT 60*01(1*1' 
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0307 

0308 
0"*09 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 


0348 

0349 

0350 

0351 

0352 

0353 

0354 


Of POOR guAUfY 


C 

TYPE BBO 

000 FORMAT ('•' » ' Input the weighting factor for rl ') 

ACCEPT 60 f D1 ( 2 » 2 ) 

C 

TYPE 890 

B90 FORMAT 9 ' Inrut iht weighting factor for beta) ' ) 

ACCEPT 60 9 D1 ( 3 9 3 ) 

C 

TYPE 900 

900 FORMAT ('$'•' Inrut the weighting factor for nhit ') 

ACCEPT 60fDl<4»4> 

C 

TYPE 910 

910 FORMAT (' f '»' Input tha weighting factor for rdotl ' ) 

ACCEPT 60tDi<5*5) 

C 

TYPE 920 

920 FORMAT < ' t ' » ' Inrut tha weighting factor for rdotl ') 

ACCEPT 60fDl(6t6> 

C 

TYPE 930 

930 FORMAT (*%'*' l nrut tha weighting factor for awl ' ) 

ACCEPT 60 * D1 ( 7 v 7 > 

950 CONTINUE 

C,... WRITE MATRICES TO FILE 
960 FORMAT (2110) 

1160 FORMAT ( 8 F 12 . 6 ) 

WRITE < 1 #960 )4#4 
DO 970 1 * 1 # 4 

WRITE < 1» 1160) <A< If J>9j«lf4) 

970 CONTINUE 

WRI TE ( 1 1 960 ) 4 r MU 
DO 980 I*: t4 

WRITE ( 1 9 1 aCO ) ( D( 1 9 J > 9 J*1 fMU ) 

980 CONTINUE 

UR I TE ( 1 f 960 ) 4 9 4 
DO 1000 I«1 9 4 

WRITE( If 1160) (AA< I 9 J/9 J*if4) 

1000 CONTINUE 

WRI TEC 1 f 960)4 9 HU 
DO 1010 I * 1 • 4 

WRITE ( 1 f 1 160 ) (B8(IfJ)fJ*lfhU) 

1010 CONTINUE 

WRI TE ( 1 9 960 ) 7 9 7 
DO 1040 I ■! t 7 

URITEClf 1160) (Dl(If J) t J«lf7) 

1040 CONTINUE 

C.... WRITE TRANSDUCER POSITION DATA 
C. . . . X AX 9 Z AX 9 ZAY fYAYfZAYfXAZf ZAZ 9 THAI 

WRXTECl t 12001-1 *45f+l. 54 fl # 33 9+0*279+1 .55f-l .23 9 +1 .54 9 -0,079 
1200 FORMATCBr 10.4) 

URITE(l9l200)(ZER0(I) 9l-lf4)9<DIAS( J)f J-lf4) 

C.... WRITE OUT AIRPLANE DATA TO FILE 

WRITFClf 1 160 ISfCBARfSPANf WEIGHT 9 AXXf AIXZ 9 AI Y 9 AIZ 

URITE(l»1160)HfUl 

STOP 

END 


r ■ - 

r 0?.iCKiAL FAC7. 13 

r OF POOR QUALITY 

t 

| A. 7) MINC MMLE (NEOTON) 

\ 

| Description: The main program of the MMLE (NEWTON) routine 

| acts as the executive, calling subroutines as needed. Initially 

j' it reads the input data (as output from SETUP) for the starting 

conditions of the case. If the case converges to a solution, the 
r ' nondimens ional derivatives and confidence levels are computed. 

r 

Flow chart : 
















Listing r 


ORIGIM*' l ?;.'K 

OF POOR 


RT-11 LINK V06.01C 

Load Ha* 

Ffi 26- 

Ftb-82 00110105 


NEUTO^.l 

BAV mill 

HA I N 

Idvntt 

F0RV02 




Section 

Addr Sir# 

Global 

Vilut 

Global 

Valua 

Global 

Valua 

♦ AtlS • 

000000 001000 

(RWr I tOBLrABSf 

OVR) 






tusRSu 

000000 

tRF2Al 

00 '>*>00 

• VIR 

000000 



tNLCHN 

000006 

tHRDUR 

000006 

IUASIZ 

000152 



tLRECL 

000210 





tOHAND 

001000 000106 

(RUt If 

GBL'REL* 

CON) 






tOVRH 

001002 

OtREAD 

001024 

OtDONE 

001036 



tODFl 

001102 

tODF2 

001104 
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(RUt bt 

OBUREL. 

OVR) 
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001236 024762 

<RU«X' 

LCLfRELt 
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ttOTSI 

001236 

AINT 

001236 

tXNTR 
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AL0G10 

001340 

ALOG 

001344 
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001720 



tCVTFI 

001720 

tCVTCB 

001734 

• CVTCl 

001734 



tCVTBfc 

001734 

tCVTDI 

001734 

CXCt 

001746 



Cl Dt 

001746 

CLCt 

001746 

CLDt 

001746 



till 

001746 

CIFt 

001756 

CLFt 

001756 



tRI 

001756 

CXLt 

002064 

cut 

002070 



tCVTIF 

002072 

tCVTIC 

002106 

tCVTIO 

002106 



CCIt 

002120 

cm t 

002120 

tic 

002120 



tin 

002120 

CFIt 

002134 

tIR 

002134 



RCI* 

002220 

GCOt 

003234 

FCOt 

003242 



ECOt 

003246 

DCOt 

003254 

EXP 

004176 
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004536 

tADDF 

004544 

ADFtSS 
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tADR 
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AUFtPS 

004562 
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004566 



SUFtlS 

004602 

tSURF 

004610 

BUFtSS 

004622 



tSBR 

004622 
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004626 

SUFtMS 

004432 
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DIFtXS 

004664 



tniMF 

004672 

MFtSS 

004704 

tDVR 

004704 
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004710 

MUFthS 

004714 

HUFtXB 
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tMULF 

004734 

HUFtSS 

004746 

tHLR 
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tOTI 
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ttOTX 

005002 

tSETOP 

005220 



ttSET 

006764 
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007260 

SIN 

007314 



tXFI 

007652 

XFIt 

007664 

a purx 

007664 



tINITI 

010142 

tCLOSE 

010260 

tCSTHX 

011036 



tCSTM 

011042 

OCIt 

011154 

XCIt 

011162 



tECI 

011176 

ocot 

011356 

xcot 

011364 



tnUHPL 

011562 

tOPNER 

011710 

tCHKER 

011746 



tIOEXI 

011772 

tEOL 

012040 

EOLt 

012042 



tERRTB 

012156 

tERRS 

012263 

tFCALL 

016024 



tFCHNL 

016042 

tFIO 

016704 

ttFIO 

016710 



tGETFI 

020054 

tGETRE 

020112 

tTTYIN 

020166 



IFRt 

020322 

tIFR 

020326 

ttIFR 

020332 



IFRtt 

020364 

IFUt 

020406 

tXFU 

020412 



ttlF^ 

020416 

XFUtt 

020454 

ttOPCL 

020524 



tttLRR 

020636 

tttDIS 

020660 

tOSTHI 

020762 



tOSTH 

020766 

6PUTRE 

022116 

Runt 

022424 



tRun 

022430 

XRRt 

022536 

tIRR 

022542 



IRWt 

022566 

tlRU 

022572 

tGETXN 

023146 



tSETIN 

023204 

DEFt 

023312 

tDEF 

023316 



tPUTBL 

023412 

tGETPL 

023622 

tEOFXL 

024006 



tE0F2 

024022 

SAVRGt 

024042 

THRDt 

024220 



SAVR4t 

024222 

tSTPS 

024306 

STPt 

024314 



tSTP 

024314 

FOOt 

024320 

tEXXT 

024340 



tOTIS 

024464 

ttOTIS 

024466 

IURt 

024606 



tlUR 

024612 

xuut 

024756 

tiuu 

024762 



TVL* 

025576 

tTVL 

025576 

TMFt 

025604 



tTVF 

025604 

TVBt 

025612 

tTVD 

025612 



TVGt 

025620 

tTVO 

025620 

TVPt 

025626 


- 

tT VP 

025626 

TVIt 

025634 

tT VI 

025634 



tUAIT 

025770 

tXFF 

026032 

XFFt 

026044 



tMR I NT 

026206 
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0T5SP 

(*26220 

000C34 

SYS* I 

026274 

000000 

USER* 1 

026274 

000000 

SCODE 

026274 

034312 

OTSSO 

062606 

001036 

SYSSO 

063644 

000000 

t-DATAP 

063644 

006310 

OTSSD 

072154 

000062 

OTSSS 

072236 

000004 

SYSSS 

072242 

000000 

SDATA 

072242 

003274 

USERID 

075536 

000000 

.MU. 

075536 

000000 

ALLDIM 

075536 

000004 

SUBURT 

075542 

000002 

MATRIX 

075544 

001210 

DIMFAC 

076754 

000240 

UECTOR 

077214 

000516 

INIT1C 

077732 

000010 

ARRAYS 

077742 

010444 

INSTRM 

110406 

000054 

OEOMTR 

110462 

000040 

NUMBER 

110522 

000070 

COMMND 

110612 

000006 

Segaant 

size ■ 

110620 

tverlew 

re si or. 

000001 

OTSSI 

110622 

000000 

SYSSI 

110622 

000000 

USERS I 

110622 

000000 

SCODE 

11062: 

001620 

OTSSO 

112442 

000000 

SYSSO 

112442 

000000 

SDATAP 

112442 

000076 

OTSSD 

112540 

000000 

OTSSS 

112540 

000000 

SYSSS 

112540 

000000 

SDATA 

112540 

000142 

USERSD 

112702 

000000 

Segment 

size * 

002060 

Iverlav 

ration 

000001 

OTSSI 

l 10622 

000000 

SYSSI 

110622 

000000 

USERS X 

110622 

000000 

SCODE 

110622 

001772 

OTSSO 

112614 

000000 

SYSSO 

112614 

000000 

SDATAP 

112614 

000336 

OTSSD 

113152 

000000 

OTSSS 

113152 

000000 

SYS*S 

113152 

000000 

SDATA 

113152 

000130 

USERSD 

113302 

000000 

Segment 

size » 

002460 

Iver 1 aw 
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000002 

OTSSI 

113304 

000000 

SYSSI 

113304 

000000 

USERSI 

113304 

000000 

SCODE 

113304 

002116 
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( RU » 1 1 LCL f REL * CON ) 
SSOTSO 062606 SOPEN 

< RU » I • LCL f REL t CON ) 
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SAOTS 072256 
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Sesaent 000002 
(RU f 1 f LCLf REL f CON ) 

( RUf I f LCLf REL f CON) 

( RUf I f LCLf REL f CON ) 
(RUf If LCLf REL » CON) 
ALOAD 9 110622 AL0AD1 
ASPITlt 112024 
(RUf IfLCLfREL# CON) 
(RUf 1 f LCLf REL f CON) 

( RUf Df LCL f REL f CON) 

( RUf Df LCL f REL f CON ) 
(RUf DfLCLf RELf CON) 
(RUf DfLCLfRELf CON) 
(RUf DfLCLf RELf CON) 
(RUr DfLCLfRELf CON) 

* 664* words 


047340 AEAT 057320 
061346 REDUCE 061676 

062606 


111020 A8PXT 9 111416 


Segment 000003 
( RUf I f LCLf REL y CON) 

( RU f I f LCL f REL f CON ) 

(RU f 1 f LCL f REL f CON ) 

( RUf X f LCLf REL f CON ) 

80LUE Q 113304 INU 9 114424 
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or; - -- 
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OTStO 

115422 

000000 

SYS40 

115422 

000000 

♦DATAP 

115422 

000160 

OTStD 

115602 

000000 

OTStS 

115602 

000000 

SYStS 

115602 

000000 

♦ DATA 

115602 

000074 

U6ER0D 

115676 

000000 

Sttment 

si:« ■ 

002372 

Over law 

region 

000002 

OTStX 

113304 

000146 

SYSfl 

113452 

000000 

USER! X 

113452 

000000 

♦ CODE 

113452 

003220 

OTS^O 

116672 

000000 

SYS^O 

116672 

000000 

♦DATAP 

116672 

001032 

OTS^D 

117724 

000000 

OTS^S 

117724 

000000 

SYS4S 

i 17724 

000000 

♦ DATA 

117724 

000646 

USERID 

120572 

000000 

Sttmtnt 

♦ 1st « 

005266 


(RUtI 
(RUt Z 
(RU'D 
(RUt D 
< RU « fJ 
(RUtD 
(RUt D 
(RUtD 
637. 


tLCLtREL 
tLCLtREL 
tLCLtREL 
tLCLtREL 
tLCLtREL 
tLCLtREL 
tLCLtREL 
« LCLtREt 
word* 


f CON > 
t CON > 
f CON > 
f CON ) 
tCON) 
t CON ) 
f CON) 
i CON ) 


8a««t«nt 000004 
(RUf I f LCLtRELf CON) 
SORT 113304 ASS 
< RUt X » LCLtREL* CON ) 

( RU» Z f LCL f REL f CON ) 
(RU» 1 1 LCL tRELf CON) 
CRAMERS 113452 DXAGIN 
(RUr Z f LCL f REL i CON) 
(RUf Z t LCL f REL « CON ) 
(RUt Dr LCL tRELt CON) 
(RUt St LCL tRELt CON) 
(RUf St LCL tRELt CON) 

( RUt St LCL t REL t CON ) 
(RUt St LCLtRELf CON) 
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PAGE 001 


0001 


0002 

0003 

0004 

0005 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PROGRAM MAXN 

t » » $ I $ t t t I t $ I I « t t M t » M I I # i t * » 

« 

* oini-MMLE - KANSAS UNIVERSITY FLIGHT RESEARCH LAB 


NEUT0N-RAPH30N METHOD FOR OBTAINING STABILITY DERIVATIVES 
MEASURED STATES! 

LONG! Qt Vt ALPt THAt GDOw , AND A-Z 
LATR! Pt Rt BTAr PHI* PDOT» JTf AND A-Y 


MAIN PROGRAM OF THE MAXIMUM LIKELIHOOD ESTIMATOR 
TECHNIQUE t *MMLE > * THIS PROGRAM IS DERIVED FROM 
THE ■ BONES* PROGRAM THAT uAS ORIGINALLY DEVELOPED 
BY NASA. 

ROBERT CLARKK 2-JUN-81 

MODIFIED ROBERT CLARKE 12-AUG-61 

MODIFIED ROBERT CLARKE 1S-FEB-82 


« t l f t 1 > I t > i i « « t $ » » f t M t » » « t $ » 


COMnON /ALLDIM/ MAXt MAT 
COMMON /SUBURT/ ISUB 
COMMON /MATRIX/ A »B t AA» BD» APtDPfDl 
COMMON /DIMFAC/ ADIMtBDIM 
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0006 

0007 

0008 

0009 

0010 
0011 


0012 

0013 

0014 

0015 

0016 
0017 

0016 

0019 

0020 
0021 
0022 
0023 


0024 

0025 

0026 


0027 

0020 

0029 

0031 

0033 

0035 

0036 

0036 

0039 

0040 


0041 

0042 

0043 

0044 

0045 

0046 


0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 
005/ 

0058 

0059 


ORIGINAL pry*. 
OF POOH 


COMMON /VECTOR/ U f 2 f XT 1 f XT2 f XT 4 * X T5 t ZERO f b 1 AS » 10 1 AS 
COMMON /INI T 1C/ ALT 1 f VEL 1 

COMMON /ARRAYS/ D2» APHI *PHI 1 1 DUM * It JI t X J1 1 SUM* APR 
COMMON /INSTRH/ XAX fZAX f XAY t YAY f ZAY r XAZ * ZAZ * THAI f COSTHIf 
1 SINTHI * GRV 

COMMON /OEOMTR/ SfCBAR f SPAN f OUGHT f AIXXB f AIXZBf AI YYBfAIZZB 
COMMON /NUMBER/ JKMMf JKMt JKMM1 * HH f T IME f TT *NN fNNMI f L f 

1 LLtlTRfMUtMZfHXfMXPlf If lAf JK»K»KJtNlt 

2 ITHINf ERR6UM 

COMMON /COMMNB/ LONG fLATR » EXTRA f BYPASS f MAPR 

DIMENSION AP(8r4)fBP(8f3>»XT4<4)« BUM ( 25 1 4 ) f XT2 ( 7 > f ZERO ( 5 ) 

DIMENSION XT5(25>fAPR(25)tABIM(5»4>fBDIM(5f4) fBlAS<5> 

DIMENSION Z(7f3)tU(3f3)fD2(7)fAPHI(5«4)tXTl(7)FpHIl(5f4)f 
1 D1 ( 8 f 7 ) fA<5»4)fB(5»4 ) f B JI < 25f 4 ) » X Jl ( 25 f 8 ) * SUM ( 25 1 25 ) 

LOG I CAL* 1 LONG tLATR t EXTRA f BYPASS tAA (Sf 4 ) » BB ( 5 » 4 > 

DIMENSION PB<2S>fXT3(7)fR(5f4) fRI(5f4)fAAA<5f4)f 
1 BBB<5f4)fD54(5f4) fDD4(5f4) 

BYTE INAME( 15) f BANNER ( 60 f 4 > f ANS 

DATA LONGfLATRfEXTRAfBYPASS /4*. FALSE*/ 

DATA AAfBB /40* « FALSE • / 

DATA ADIMfBDIM /40*1.0/ 

DATA INAME ( 15 ) f ANS /Of'N'/ 

DATA GRV /32.174/ 

C 

C 

c 

C****************** INPUT USER DEFINED SETUP DATA 
2000 CONTINUE 
TYPE 3000 

3000 FORMAT < ///// f ' ' * IOXf ' INDICATE TYPE OF RUNS'* 

1 /t* * • 10X f ' IF LONGITUDINAL TYPE - L # 'f 

2 /f' * 9 10X f ' IF LATERAL-DIRECTIONAL TYPE *0*'* 

3 /f fIOXf 'SELECT RUN 1 ' ) 

ACCEPT IOOf ANS 

100 FORMAT < A1 > 

IF <ANS«EG.'L'> LONG « .TRUE* 

IF ( ANS * EG . ' D ' ) LATR - .TRUE* 

IF < .NOT. (LONG. OR.LATR) > TYPE 3001 

3001 FORMAT < 10X f ' WRONG ANSWER' ) 

IF ( .NOT. <LONG.OR.LATR>) GO TO 2000 
C****************** SET DEFAULTS 
N I * 25 

MZ » 7 

TIME » 0. 

C**t*tt**t*******St APR I OR I WEIGHTING FACTOR 
FACT • 1. 

C****************** ATTACH INPUT DATA FILE 
TYPE 3002 

3002 FORMAT</f ' t' f IOXf 'ENTER FILE NAME FOR SETUP DATA! ') 

ACCEPT 101f ( I NAME ( I ABC) f I ABC»1 f 14 > 

101 FORMAT < 14A1 ) 

OPEN <UNIT«2fNAME«INAMEfTYPE*'0LD' f ACCESS* ' SEQUENTIAL ' f 


1 READONLYf FORM«'FORMATTED' f REC0RDSIZE*132 > 

C****t ************* CLEAR OUT OLD FILE NAME 


DO 1000 IABO!fl4 
INAME CIABC) - ' ' 

1000 CONTINUE 

READ < 2 f 102 > <<BANNER<IF J>fI»1f 80) f J- l f4) 

102 FORMAT < 80A1 ) 

READ ( 2 f 103 > NNf ITRfMZfMAPRf ISUB 

103 FORMAT (7110) 

READ < 2 f 104 ) HHfXLA 

104 FORMAT < 8F 1 0 . 4 ) 

C****************** CHECK ON NON-DIMENSIONAL DERIVATIVES 
TYPE 3003 

3003 FORMAT('t' fIOXf 'DIMENSIONAL INPUT DERIVATIVES? <Y OR N>! ') 
ACCEPT IOOf ANS 

IF (ANS. EG. 'Y') BYPASS - .TRUE. 

C****************** CHECK ON EXTRA DATA 


154 






Mimrf ifef 
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0061 

0062 

0063 

0064 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0074 

0075 

0076 

0077 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0091 

0092 
0094 

0096 

0097 

0098 


0099 

0100 
0101 

0102 

0103 

0104 
010b 

0106 

0107 

0108 

0109 

0110 
0111 
0112 
0113 
0115 

0117 

0118 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 


TYPE 3004 

3004 F0RMAT( rlOXr 'EXTRA DATA? ( Y OR N M ' ) 

ACCEPT 100> ANS 

IF ( ANS • EO • ' Y ' ) EXTRA • .TRUE. 

CmtlUtttltUtm LOAD MATRICES 
MAX - 5 

CALL ALOAD ( 4 ' A ' B r AAA ' BBB > 

I END • AAA ( MAX 1 1 > 

DO 1001 1*1 r ZEND 

JEND - AAA ( MAX 1 2 ) 

DO 1002 J* 1 1 JEND 

IF ( AAAC l r J) 'EO. 1 . > AA(ltJ) ■ .TRUE. 

1002 CONTINUE 

JEND - BBB ( MAX f 2 ) 

DO 1003 J*1 ' JEND 

IF (DDD( 1 1 J) «EQ. 1 » > BB(I.J) ■ .TRUE. 

1003 CONTINUE 
1001 CONTINUE 

MAX * 8 

CALL ALOAD(l'Dl'Dl'Dl'Dl) 

cimmmumm set dimensions and initialize cap3 and cbp3 matrices 

AP ( 8 ' 1 ) ■ 7 

BP < 8 1 1 ) ■ 7 

AP ( 8 ' 2 > * 4 

BP ( 8 ' 2 > ■ 3 

CALL AZOT(AP) 

CALL AZOT < BP > 

ctittmimimm if test then output matrices 

IF ( ISUB » GE » 2 ) CALL ASPIT(Dl) 

MAX « 5 

IF (1SUB.GE.2) CALL ASPIT (AAA) 

IF (ISUB.0E.2) CALL ASPIT(BBB) 

NNM1 * NN-l 

MU « B < MAX' 2)4.01 

MX - A ( MAX * 2 ) 4* • 01 

ctmmmmmn read instrumentation data 

READ (2# 104) XAX'ZAX'XAYrYAY'ZAY' XAZ » ZAZ r THAI 
SINTHI - S IN ( THAI > 

COSTHI * COS(THAI) 

cmmtimmtm read in zeros and biases 

READ (2' 104) (ZERO ( I ) » 1*1 'MX) ' (BIAS(IA) f IA*1 'MX) 

C**ttt*S *********** READ AIRPLANE GEOMETRIC DATA AND INITIAL CONDITIONS 
READ (2' 105) Sr CBAR' SPAN 'OUGHT 'AIXXB'AXXZB fAIYYBfAIZZB 
105 FORMAT ( 8F 1 2 . 4 ) 

READ< 2' 105 ) ALTl'VELl 
ctummmmm form CR3 matrix 
MAX - 5 

R ( 5 f 1 ) « 4. 

R<5'2> * 4. 

CALL AZOT(R) 

DO 1004 1*1 1 4 
R<I'I) - 1. 

1004 CONTINUE 

IF (LATR) R ( 1 ' 2 > *-AI XZB/AIXXB 
IF (LATR) R ( 2 f 1 ) — AIXZB/AIZZB 
cmttmmatmt copy cru into CRI3 
CALL AMAKE(RIfR) 

cmmitmmmt invert CR3 if necessary 
IF (LATR) CALL INV(RIfMAX) 

c»mtm»«m*mt form caps and CBP3 matrices 

DO 1005 1*1 f6 
DO 1006 J-1f4 
AP(IfJ> * 1. 

1006 CONTINUE 

DO 1007 J*1 » 3 
BP(I'J) *1. 

1007 CONTINUE 

1005 CONTINUE 

IF (LONG) A P ( 6 ' 1 ) - 0. 
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0130 

IF (LONG) 

AP<6»2> - I./GRV 

0132 

IF (LONG) 

AP<6.3> - 0. 

0134 

IF (LONG) 

AP(6t4> •> 0. 

0136 

AP ( 7 9 3 > 

• VEL1/GRV 

0137 

DO 1008 I 

-1 .3 

0138 

IF (LONG) 

BP<6.1> • 1 ./Gf(V 

0140 

BP( 7 9 1 ) 

» VELX/ORV 


0141 1006 CONTINUE 





14 FORM DIMEN8I0NALI2IN0 MATRICES FOR CAT 

AND Lbl 

0142 


TEHPA 

■ 51G.7-ALU40. 00356 


0143 


IF (TEHPA. LI 

r.390.) TEMPA • 390. 


0145 


PRESA 

- 2116.224(1. -0. 0000066 7844 ALT 1 >040.2532 


0146 


RHO 

■ PRESA/< 1716. 364 TEMP A) 


0147 


ADI H < 5 9 1 ) 

■ A<5.1 ) 


0148 


ftMN<5.2> 

• A ( 5 9 2 > 


0149 


DDlh(5t 1 ) 

• B ( 5 9 1 ) 


0150 


BDIH<5r2) 

* B ( 5 9 2 ) 


0151 


ANSS 

* OUGHT /GRU 


0152 


GBAR 

* .5*RH0*VEL1*VEL1 





14 IF OUGHT - 0.0 THEN OUTPUT DIMENSIONAL 

DERIVATIVES 

0153 


IF (OUGHT •EG*0t ) GO TO 2002 


0155 


IF <LATR) GO TO 2001 



C****i 


It LONGITUDINAL CASE 


0137 


OS 

« QBAR*S 


0158 


08C 

■ 0DAR4S4CDAR 


0159 


OSCC 

* QBAR*S*CBAR*CBAR 


0160 


ADIM(lil) 

- ( QSCC ) <1 ( 2 . 4VEL14AI Y YD ) 


0161 


ADIH ( 1 » 2 ) 

- (GSC>/(VEL14AIYYB) 


0162 


ADIM< 1 1 3 > 

- < OBC ) / < A I YYB ) 


0163 


DDIN(lfl) 

* ( QSC > / < A I YYB > 


0164 


BD IH( 1 9 2 ) 

- ( OSC ) / ( AX YYB ) 


0165 


BDIM< 1 t 3) 

■ < QSC )/(AIYYD> 


0166 


ADIH ( 2 9 2 > 

* < OS > / ( AHSS*VEL1 ) 


0167 


ADIH < 2 9 3 ) 

* ( OS ) / ( AhSS ) 


0168 


BDIH < 2 9 1 ) 

• ( QS ) / ( AHSS > 


0169 


DDIH( 2 t 2 ) 

- (OS)/ (AHSS) 


0170 


BDIM(2'3> 

- ( QS > / ( AHSS ) 


0171 


ADIH < 3 v 2 ) 

- < QS ) / ( AMSS4VEL1 442 ) 


0172 


AMH ( 3 • 3 > 

* (QS)/(AHSS*UEL1 ) 


0173 


BHIM(3f 1) 

• (QS)/<AHSS*VEL1> 


0174 


BDIH ( 3*2) 

* < QS ) / ( AHSStVELl ) 


0175 


BDI H ( 3 » 3 ) 

- ( QS ) / ( AHSS*VEL 1 ) 


0176 


GO TO 2002 



0177 

2001 

CONTINUE 






I* LATERAL-DIRECTIONAL CASE 



0178 

OS 

• QBAR*S 

0179 

QSB 

• QBARtSBSPAN 

0180 

OSBB 

• QBAR*S* SPAN* SPAN 

0161 

AD I H ( 1 9 1 ) 

* ( OSBB ) / ( 2 » *VEL 1 *AI XXB ) 

0162 

ADIH ( 1 9 2 ) 

* ( QSBB ) / ( 2 • *VEL 1 *AI XXB ) 

0183 

ADIH( 1 93) 

- ( QSB > / ( AX XXB ) 

0164 

BDIH ( 1 9 1 ) 

« ( QSB ) / ( AIXXB ) 

0165 

BDIH< 1 f 2) 

* ( QSB )/( AIXXB ) 

0186 

BD I H < 1 9 3 ) 

• ( QSB > / (AIXXB ) 

0187 

ADI H ( 2 9 1 ) 

• ( QSBB ) / ( 2 • *VEL1*AIZZB ) 

0188 

ADIH ( 2 9 2 ) 

• ( QSBB ) / ( 2 • tVELl tAIZZB ) 

0189 

ADXH( 2 9 3 ) 

* ( CSB ) / (AIZZB ) 

0190 

BDIH ( 2 9 1 ) 

» (QSB)/( AIZZB) 

0191 

BD I H ( 2 9 2 ) 

* ( QSB ) / (AIZZB ) 

0192 

BD I H ( 2 t 3 ) 

- ( QSB ) / (AIZZB > 

0193 

ADIH ( 3 9 3 ) 

* ( QS ) / ( AHSS* VE LI ) 

0194 

BDIH ( 3 9 1 ) 

- ( QS ) / ( AHSS*UEL1 ) 

0195 

BDIH ( 3 9 2 ) 

• i QS ) / ( AHSS*VEL1 ) 

0196 

BDIH< 3 9 3 ) 

« ( QS ) / ( AHS$*VEL1 ) 

0197 

2002 CONTINUE 


0190 

HXP1 

• HX+1 

0199 

YY 

■ 0 • 

0200 

XX 

* 1 4 


0201 DO 1009 1*1 9 HX 
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0202 

0203 

0204 

0205 

0206 
0207 
0206 
020 ? 
0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0216 

0219 

0220 
0221 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 
0233 


0234 

0235 

0236 

0237 

0238 

023? 

0240 

0241 

0242 


0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 


0254 

0255 

0256 


XT4 < 1 > • 0. 

XT3 ( I ) • 0. 

XX ■ XX4ZER0( I >4BI AS( I ) 

DO 1010 J-1«HU 

YY • Y Y 4 AAA (I»J>+DDD(2fJ) 

1010 XX * XX4AAA<l9j)4BBB(l9 J) 

YY ■ Y Y4AAA < 1 *HX > 

1009 XX • XX4AAAC 1 »hX > 

JKMM ■ Y Y4 » 0 1 

JKM ■ XX4.01 

JKMM1 ■ JKM- 1 

cittttimmttmi initialize matrices 

SUM < N I r 1 ) • JKM 

SUM 'N1 9 2 ) • JKM 

MAX » N I 

CALL AZOT < SUM V 

ctmtitmmtm* select apriori option thru mapr 


IF (MAPR) 2003 t 2004 # 2005 
2005 DO 1011 XB-1'JKM 

READ ( 2 » 1 06 > <SUM(IBt IA) rlA-lt JKM) 

106 FORMAT ( 6E12« 4 ) 

IF <I$UB.GE.2> PRINT 107» ( 6UM( IB» ZA> » X A-l t JKM ) 

107 FORMAT < * ‘ »6£12.4) 

DO 1011 1 A*1 » JKM 

1011 SUM< IB 9 IA)-8UM< IB»IA)*FACT 

APR(IB) * SUM ( I J 9 IB ) 

00 TO 2004 

2003 READ(29l06) < APR( IA> » IA-1, JKMM1 ) 

DO 1012 IA-1 9 JKM 

1012 APR(IA) • APR ( 1 A ) BFACT 

IF ( ISUB * GE • 2 ) PRINT 1079 ( APR< AI ) 9 IA-1 9 JKMM1 ) 

2004 CONTINUE 

C CLOSE INPUT DATA FILE 


CLOSE< UNI T -2 ) 

cimummttm enter name of data file with flight test data 

TYPE 3006 

3006 F0RMAT(/9 ' • ' 9 10X 9 ' enter file name containing measured data: ') 

ACCEPT 101 9 ( I NAME ( I ADC) 9 1 ADC-1 9 14 ) 

0PEN<UNXT«49NAME-INAME9TYPE-'QLD' 9ACCESS»'SEQUENTIAL' 9 
1 FORM- ' UNFORMATTED ' 9 READONLY r BUFFERCOLNT-2 ) 

TYPE 3007 

3007 F0RMAT(/9 ' 9 IOX 9 'ENTER FILE NAME TO HOLD PREDICTED DATA: ') 
ACCEPT 1019 (INAME(IADC)9lADC-l 914) 

OPEN (UN IT -3 9 NAME -I NAME 9 TYPE- 'NEW ' 9 ACCESS- 'SEQUENTIAL ' 9 
1 FORM- ' UNFORMATTED ' 9 DI SPOSE- ' SAVE ' 9 DUFFERCOUNT-2 ) 


cmmimmom print out input data 

PRINT 3006 

3006 FORMAT (' - 

1 > 


DO 1013 J»1 94 

PRINT IO 69 <DANNER(l 9 j) 9 l-l 960 ) 

106 F0RMAT(10X980A1) 

1013 CONTINUE 

PRINT 3008 
PRINT 3009 

3009 FORMAT < 24X 9 ' INITIAL CONDITIONS '/> 

PRINT 30109 NN 9 ITR 9 ISUB 9 NZ 9 HH 9 XLA 


3010 FORMAT ( 8 X 9 
1 
2 

3 

4 
4 

PRINT 
PRINT 


NUMBER OF DATA POINTS : SI3. 

8 X 9 'MAXIMUM NUMBER OF ITERATIONS I 'tX2*/t 

8 X 9 ' SUBROUTINE TEST FLAG I 't!39 

8X 9 'NUMBER OF STATES ? 'iI39/ 

8 X 9 'DATA SAMPLING TIME INTERVAL :'9FB*49 
8X 9 'DIAGONAL MULTIPLYING FACTOR S'tF8»4f/> 

3008 

3700 1 QBAR 9 VELI tSt SPAN 9 CDAR 9 AIXXDi AI YYD 9 AIZZD 9 AlXZD 9 GWOHT 


3700 FORMAT (/ 9 IOX 9 'FLIGHT^CONDITION AND VEHICLE 

1 /9 15X9 ' DYNAMIC PRESSURE » ' 9 FIO .29 

2 10X9 'VELOCITY « ' 9 F 10 • 2 9 

3 / 9 1 5X f ' UI NG AREA « '»F10*29 

4 10X9'UING SPAN * '9F10.29 


CHARACTERISTICS' 
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0257 

0258 


0259 

0261 


0262 

0264 


0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 


0273 

0275 

0276 

0278 

0279 

0280 
0261 
0282 

0283 

0284 

0285 
0266 

0287 

0288 

0289 

0290 

0291 

0292 


0293 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 


5 /. I5<t 'WING MAC ■ 'tFl0.2t 

6 lOXt'IXXB • 'irlO.lt 

7 /tl5X,'lYYB • 'tFlO.lt 

8 lOXr'XZZB • ' r F 10 * 1 t 

9 /tlSXt'XXZ B m 'tFlO.lt 

1 1 OX t 'WEI GHT • ' t F 10 . 2 ) 

PRINT 3701 tXAXtXAY *XAZ*YAY* ZAXtZAYtZAZ t THAI 
3701 FORMAT < 1 5X t ' INSTRUMENT OFFSETS FROM CC ' t 


/ t20Xt 'X-DIRECTION OFFSETS <4 
/t 25Xt ' A-X ' r F7 . 3 * 3X t ' A- Y 


« INSTR FORWARD 
' t F7,3*3X* 'A-Z 


OF C0> ' t 
' * F7 • 3 r 


3 /t 20Xt 'Y-DIRECTION OFFSETS <4 • IN6TR RIGHT OF CG)'t 

4 / » 25X t ' 'flOXt'A-Y ' # F7 • 3 1 

5 /t20Xt ' Z "‘DIRECT ION OFFSETS <4 * INSTR BELOW CG)'t 

6 / t 25X t ' A-X # *F7.3*3Xt ' A-Y ' t F7 . 3 1 3X t ' A-Z '*F7.3t 

7 /t20Xt 'FITCH ANGULAR OFFSET FROM DODV AXES 't 

8 ' <4 ■ FITCH UP) ' 

9 t / t 25X t ' THETA (MEASURED IN RADIAN UNITS) *F7.3> 


IF LONG) PRINT 3011 

3011 F0RMAT</*10Xt 'ZERO AND BIAS CONTROL ' t / 

1 10X> 'PITCH RATE VELOCITY ALPHA THETA 't 

2 'PITCH ACCL A-X A-Z') 

IF < L A T R ) PRINT 3012 

3012 FORMAT</t lOXt 'ZERO AND BIAS CONTROL ' t / 

1 1 OX t ' ROLL RATE YAW RATE BETA PHI 't 

2 'ROLL ACCL YAW ACCEL A-Y') 


PRINT 109 t <ZERO< I) tI*ltMX)t < B I AS < I A > t I A- 1 tMX-1 ) 

109 FORMAT dOX*8F10.5) 

PRINT UOt (D1 < IBCDt IBCD) t IBCD-1 17) 

110 FORMAT ( / r 10X t 'DIAGONAL ELEMENTS OF THE WEIGHTING MATRIX Dll'*/ 

1 5X t 7F 1 3 * 3 1 / ) 

PRINT 3008 
MAX ■ 5 

print out the input cRit cad* and cbd matrices 

PRINT 3013 

3013 FORMAT( lOXt ' INITIAL INPUT MATRICES CR 3t t A3 » AND CBD.'t/t 

1 lOXt'A STAR <*> FOLLOWING THE VALUE OF A MATRIX' t 

7 ' ELEMENT INDICATES THAT ' t / t 

3 lOXr'THE RESPECTIVE DERIVATIVE IS NOT ESTIMATED BY' 

4 t' THE KMLE METHOD.') 

IF ( .NOT. BYPASS) PRINT 3014 

3014 FORMATdOXt ' (DERIVATIVES ARE NON-DIMENSIONAL)') 

IF (BYPASS) PRINT 3015 

3015 FORMAT ( 1 OX » ' < DERVATI VES ARE DIMENSIONAL)') 

PRINT 9000 

9000 FORMATC/tlOXt 'MATRIX CRD ' ) 

CALL ASPIT(R) 

PRINT 3016 

3016 FORMAT(/tlOXt'ST ABILITY MATRIX C A3 ' ) 

CALL ASPI T 1 ( A t AA ) 

PRINT 3017 

3017 FORMAT(/tlOX* 'CONTROL MATRIX CBD') 

CALL ASPIT1 ( Bt BB ) 

PRINT 3008 

C*ttt**t«*****tt*** MULTIPLY CAS AND CB3 BY CRI3 
MAX * 5 

MAT ■ 5 

CALL AMULT ( R1 t A t A*D54 ) 

CALL AMULT (Rlt B*BtD54) 

C**tt*t«***t******t IF NOT BYPASS THEN FORM DIMENSIONAL DERIVATIVES 
IF (BYPASS) GO TO 2006 
DO 1014 IABC-ltMX 
DO 1015 IDEF»1 t NX 


A( I ABCt IDEF >■ AdABC* IDEF ) *ADXM < I ABC t IDEF > 

1015 CONTINUE 

DO 1016 IDEF»ltMU 

B( I ABC * IDEF >• BCXABC* IDEF) tBDXMCXABC* IDEF) 

1016 CONTINUE 
1014 CONTINUE 
2006 CONTINUE 

C**t»tt*»t*»«*«tt** STARTING ITERATION LOOP 
REWIND 4 
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0305 

0306 

0307 


0306 

0310 

0312 

0313 


0315 

0317 

0319 

0320 

0321 

0322 
^323 
0324 
032U 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0336 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 


0363 

0365 

0367 


ORIGINAL FA GC IS 
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TT « T1ME-HM 

DO 1017 LM»ltNN 
TT ■ TT4MH 

CMtttlltttttlMtlt READ IN MFA8URED RESPONSES FROM DATA FILE 

READ IN LONGITUDINAL DATA 

IF (LONG) READ ( 4 ) Z < 4 1 1 ) t 2 < 1 1 1 > 1 Z < 7 * 1 ) 9 Z ( 6 # 1 ) »U < 1 • 1 ) f AM6* AM7 1 AMO* 

1 AM9 9 AM10 9 AMI 1 

IF ( LONG .AND * EXTRA ) READ( 4 > Z < 2t 1 ) t 2 < 3» 1 ) • Z <5t 1 ) t AM15t AMIA » AM17 
U < 2 » 1 ) • 0. 

Ctmt*Mt»l»l»«»«» READ IN LATERAL DIRECTIONAL DATA 

IF ( LATR ) READ< 4 ) AMI » AH2» AN3f AH4# AM5t Z< 4 9 1 ) • Z ( 1 t 1 ) # 1 < 7 t 1 ) » Z < 2» 1 ) 9 


1 U( 1 » 1 > » U< 2» 1 ) 

IF (LATR, AND. EXTRA) READ ( 4 ) AM12 • AM13 9 AMI 4 • Z ( 3 1 1 ) 1 2 < 5 9 1 ) # Z < 6 1 1 ) 
IF (ISUD.GE.6) PRINT 3050# ( Z ( I At 1) • 1 A-l 1 7 ) t U< 1 1 1 ) tU . 2 1 1 > t TT 
3050 FORMAT <5X»10(1PE12*4)) 


1017 CONTINUE 
REUIND 4 

DO 1 0 IB !A«1»N1 
XT5 ( X A > » 0. 

PB < I A ) - 0. 

1018 CONTINUE 

IZE ■ 1 

DO 1019 I A» 1 1 MX 
IF (ZERO(XA)) 2007 * 2006*2007 

2007 IZE « XZE41 

2008 CONTINUE 

1019 CONTINUE 

C**«tt****t****t**» MAIN MMLE LOOP FOR INT ITERATIONS 
DO 1020 LL-1'XTR 

cutmtmmmM rewind tapes for each iteration 

REWIND 4 
REWIND 3 
PRINT 3018 * LL 


3018 FORMAT ( //t 10X# ' ITERATION! ' f I3> 

MAX ■ 5 

C*ttt*t»*t**»tt*t»* CALL SPECIAL MATRIX OUTPUT ROUTINE 
PRINT 3019 

3019 FORMAT < /» 10X» ' ESTIMATES OF THE STATE MATRICES ' ) 
PRINT 3020 


3020 FORMAK/tlOXt 'STABILITY MATRIX CRI3BCA3') 
CALL ASPXT 1 ( A 9 AA ) 

PRINT 3021 

3023 FORMAT(/9lOXf 'CONTROL MATRIX CRI3BCB3') 
CALL ASPXT 1 ( B r BB ) 

MAX » 5 

MAT ■ 5 

CALL AEAT ( A 9 HHfPHX 1 9 APHX *D54 9 DD4 ) 


U( 3 9 1 ) » 2 * 

U( 3 9 2 ) « 1 . 

U ( 3 9 3 ) * 1. 

XJI(NIfl) ■ JKM 

XJKNI.2) - MX 

BJKNItl) ■ JKM 

B JX (NX 9 2 ) - MX 


SUM ( N1 » 1 ) « JKM 

SUH( NI 9 2 ) - JKM 

INITIALIZE AND READ DATA FROM TAPE 
DO 1021 XJK-lrJKM 
DO 1021 JKL-ltIJK 
1021 SUM ( X JK 9 JKL ) * 0. 

MAX * NI 

CALL AZOT(XJI) 


C**»***»*»t**t***t* READ IN THE FIRST TWO SERIES OF 
C*t«*****«!t**t*»»* MEASURED DATA FROM THE DATA DISK FILE 

CMmimtimm* read in first time point of longitudinal data 

IF {LONG) READ ( 4 ) XT 1 ( 4 ) 9 XT1 ( 1 ) 9 XT 1 < 7 ) • XT 1 ( 6 ) r U ( 1 9 1 > 9 
1 AM6* AM7 9 AMB t AM9 9 AM10 9 AMI 1 

IF (LONG. AND. EXTRA) READ( 4 ) XT 1 ( 2 ) 9 XT 1 < 3 ) 9 XT 1 ( 5 ) 9 


1 AM15 » AM16 9 AMI 7 

U ( 2 9 1 ) » 0. 
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0366 

0370 


0372 

0374 

0376 

0376 

0360 

0362 

0364 

0386 

0366 


0390 


0392 


0394 

0395 
0397 


0399 

0401 

0403 

0405 

0407 

0409 

0411 

0413 

0415 


0417 

0416 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 
0426 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 


C$«tttt*t»*S»StS«*» READ IN r INST TIME POINT LATERAL DIRECTIONAL DATA 
IF (LATA) READ ( 4 ) AMI • AM2 1 AM3 • AN4 # AM5t XT 1 < 4 ) • XT l ( 1) • XT 1 < 7 ) • 

1 XT1(2>*U(1»1>»U<2.1> 

IF (LATR. AND. EXTRA) READ< 4 ) AMI 2* AM13 • AM! 4 »XT1 (3) »XT1 <5 ) • 

1 XT 1 ( 6 ) 

C 

ctmiuimmiMi translate from instrument axes and location 
C*ttt***t*M«M»»»* FOR CORRECT INITIAL CONDITIONS FOR MMLE PREDICTIONS 
CtttttltttttMMMV LONGITUDINAL CASE 

IF (LONG) AX I • C0STHI*XTl<6)+SlNTHltXTl(7> 

IF (LONG) AZI ■-BINTMItXTl (6 ) 4C0STHI SXT1 ( 7 ) 

IF (LONG) XT 1 ( 4 ) « XT1(4)-THAI 

IF (LONG) XT1 (6> • AXI 

IF (LONG) XT 1 ( 7 ) ■ AZI 

CiMtUtMIUtMtl LATERAL -DIRECT I ONAL CASE 

IF (LATR) R 1 1 • C0STHI*XTl(l)fSlNTHI*XTl(2) 

IF (LATR) RI1 ■-8INTMI*XT1<1)4C08THI*XT1(2> 

IF (LATR) XT 1 ( 1 ) ■ Pit 

IF \ LATR > XT 1 ( 2 > ■ RI1 

C 

READ IN SECOND TIME POINT OF LONGITUDINAL DATA 
IF (LONG) READ< 4 > XT2 ( 4 ) • XT2( l > » XT2( 7 ) # XT2 < 6 ) * U< 1 * 2 > # 

1 AM6. AM7.AM8.AM9t AM10» AMI 1 

IF ( LONG . AND » EXTRA > READ( 4 ) XT2 ( 2 ) t <T2< 3 ) . XT2 ( 5 > t 
1 AM 15 . AM16 . AMI 7 

U ( 2 1 2 ) * 0. 

CtmtUtltmUM* READ IN SECOND TIME POINT OF LATERAL-DIRECTIONAL DATA 
IF (LATR) READ ( 4 ) AMI .AM2.AM3.AM4. AMS » XT2<4).XT2<1>.XT2<7). 

1 X T2 < 2 ) f U ( 1 * 2 ) * U < 2 # 2 ) 

IF ( LATR • AND. EXTRA) READ< 4 ) 4M12.AM13.AM1 4 . XT2(3 > .X12<5> . XT2(6) 

C 

TRANSLATE FROM INSTRUMENT AXES AND LOCATION 
C****»»*»t»«*»***t* FOR CORRECT INITIAL CONDITIONS FOR MMLE PREDICTIONS 
C****************** LONGITUDINAL CASE 

IF (LONG) AXI • C0STHI*XT2(6)fSINTHI»XT2(7) 

IF (LONG) AZI •-SXNTHI$XT2(6) +C08THX *XT2 ( 7 ) 


IF (LONG) XT 2 ( 4 > • XT2(4)-TMAI 

IF (LONG) XT2 ( 6 ) • AXI 

IF (LONG) XT2 < 7 > • AZI 

C****tttttt******* LATERAL-DIRECTIONAL CASE 


*F (LATR) PI2 • C0STHI*XT2<1 > 46INTMX SXT2< 2 > 

IF (LATR) R I 2 --S I NTHI *XT2 < 1 > +C06THI SXT2 ( 2 > 

IF (LATR) X72( 1 ) - PI2 

IF (LATR) XY2( 2 ) - RI2 

C 

C********i********* DELETE UNWEIGHTED DATA FROM TIME HISTORY 


DO 1022 I ABC ■ 1 . 7 

IF ( D1 ( I ADC* I ADC ) • NE • 0 > GO TO 2009 
XT 1 ( I ABC ) • 0. 

XT2 ( I ADC ) « 0. 

2009 CONTINUE 

1022 CONTINUE 

IC - 0 

DO 1023 I-lfMX 

1023 X J X ( JKM 1 1 > • XT2 ( I > 

IF (LL-1) 2010.2011 . 2010 

2010 DO 1024 IA-1.HX 

IF (ZERO 1 1 A) ) 2012 .20x3 .201 2 


2012 IC » IC 4 1 

XT3 < I A > » XT3(IA)4PB< JKM-IZE4IC > 

XT 1 ( I A ) ■ XT 1 ( I A ) 4XT3< I A ) 

X JI ( JKM * I A ) • XJI ( JKM.IA)4XT3<1A) 

XT2( I A ) ■ XJI < JKM# I A ) 

2013 CONTINUE 
1024 CONTINUE 

IC • 0 

C**** ************** PRINT OUT VARIABLE BIAS AND ZERO LABELS 
PRINT 3005 


3005 FORMAT (/. 12X . 'VARIABLE BIAS: VARIABLE ZEROS ' ) 

DO 1025 IA-l.MX 
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044) IF ( 8 1 AS ( I A > > 20)4*2015*20)4 

0442 2014 1C - ICM 

0443 XT4< IA) ■ XT4( IA)4PD( JKMMMC > 

Caaaaaaaaaaaaaaaaaa LINES REMOVED TO CONNECT AS IN NASA TN 
C XTKIA) • XT1(IA)*XT4(IA> 

C X?2< IA> ■ XT2(IA)-XI4(IA> 

C X JI ( JXM* I A > * X T2 ( 1 A) 

0444 2015 CONTINUE 

Caaaaaaaaaaaaaaaaaa PRINT OUT UAR1ASLE NIAS AND ZENO INFORMATION 

0445 PRINT )11*XT4(IA)*XT3(1A) 

0446 111 FORMAT (12X*1F12*4*10a*1F12.4> 

0447 1025 CONTINUE 

0446 2011 CONTINUE 

0449 DO 1024 IA»1 * JKMM 

0450 XT5< I A > ■ XT5(1A)«PS(IA> 

0451 1024 CONTINUE 

0452 DO 1027 IA>1*M2 

0453 D2(1A> ■ 0. 

0454 Z< I A* 1 > ■ XT 1 < I A > 

0455 Z(IA.2> • XT2< IA> 

0456 1027 CONTINUE 

0457 IC -0 

0456 DO 1020 !>i'MX 

0459 IF (ZENOU)) 2016*2017*2016 

0460 2016 IC ■ ICM 

0461 XJI < JKM-IZEMC* I ) - 1. 

0462 2017 CONTINUE 

0463 1026 CONTINUE 

*;**»•*••««»*«»•«*•• CALL AO*RL (MAIN BU6RPUTINE 

cmmiiminmt for the parameter idsntification) 

0464 CALL A01RL 

0465 MAX ■ N I 

0466 DO 1029 IAMtJKM 

0467 1029 SUH< 1A* I A) • 8UM( 1A* 1A1SXLA 

0466 IF (ISUD.OE.l) CALL A8PIT(6UM) 

0470 8UM<NI * 1 > ■ JKN-1 

0471 SUM<NI • 2 > * JKH-1 

0472 PRINT 3022*LL 

0473 3022 FORMAT)/. 10X. ' ITERATION '*13.' COMPLETED') 

0474 PRINT 3006 

0475 IF (LL-ITR) 2018*2019*2019 

0476 2019 CONTINUE 

Caaaaaaaaaaaaaaaaaa COMPUTE FINAL OUTPUT 
caaaaaaaaaaaaaaaaaa multiply CRnacA3 and CRI3ACD3 by CR3 

0477 MAX • 5 

0476 CALL AMULT ( R« A* A.DS4 ) 

0479 CALL AMULT < R * B * B * D54 > 

caaaaaaaaaaaaaaaaaa nondimensionalize the derivative output 

0480 DO 1500 IABC-l.MX 

0481 DO 1501 IDEF«1 .MX 

0482 A(IABC.IDEF)- A( IABC* IDEF >/ADIM( 1ADC* IDEF > 

0483 1501 CONTINUE 

0484 DO 1502 IDEF-l.HU 

0485 B< I ADC* IDEF >■ B< I ABC. IDEF )/BDIM< IABC. IDEF ) 

0486 1502 CONTINUE 

04A7 1500 CONTINUE 

caaaaaaaaaaaaaaaaaa output derivatives 

0486 IF (OUGHT. NE. 0. > PRINT 3600 

0490 3600 F0RMAT(/*10X. ' N0NDIMEN8I0NAL STABILITY AND CONTROL MATRICES!' 

1 > 

0491 IF (OUGHT. EO. 0. ) PRINT 3650 

0493 3650 FORMAT ( /• 10X * ' DIMENSIONAL STABILITY AND CONTROL MATRICES!'* 

1 > 

0494 PRINT 3016 

0495 CALL ASPIT1(A*AA> 

0496 PRINT 3017 

0497 CALL ASPITl(B.BB) 

0496 CALL CRAMER < SUM. MU . MX . MZ .ERRSUM > 

0499 IF ( ISUB.0E.2) CALL ASPIT(SUH) 

0501 PRINT 3008 


161 


•Mjmagiaaaiiaa 


OPJ r ' f '< 


^UALiT/, 


0302 STOP 

0303 201* CONTINUE 

»**••«••>«•*•••••• UPPATC AND COMPUTE NEU DERIVATIVES 

030*1 CALL SOLVE 5 SUM t PP ) 

0305 ND ■ BUN<NI , 1 >♦ .Ot 

0506 rr (ISUb.QE.l) HUNT 106* <PB< J > • I* 1 *NB> 

0508 ! J * 0 

0509 HO 1030 I ■ 1 # MX 

0510 no 1031 J« 1 * MU 

0511 IF < .NOT .BB< I » J> > GO TO 2021 

0513 2020 IJ ■ IJ+l 

0514 MbJ) • B< 1 1 J>m< IJ) 

0515 2021 CONTINUE 

0516 1031 CONTINUE 

0517 DO 1030 J-l.MX 

0518 IF < • NOT • AA ( 1 1 J > ) GO TO 2023 

0520 2022 IJ • IJM 

0521 A < I • J ) * A( 1 1 J ) 4PL [ IJ) 

0522 2023 CONTINUE 

0523 1030 CONTINUE 

0524 1020 CONTINUE 

0525 ENO 


Subroutine AGIRL 


Description: Subroutine AGIRL performs the parameter identifi- 

cation and computation of first and second gradients of the cost 
function. 


Listing : 


FORTRAN IV V02.5-2 Fri 26-F«b-62 00:06142 


RAGE 001 


0001 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

0002 


SUBROUTINE AGIRL 


THIS SUBROUTINE PERFORMS THE ACTUAL PARAMETER IDENTIFICATION. 

THE KEY MATRICES* VECTORS AND VARIABLES ARE 1 

CSUM3 - THIS MATRIX CONTAINS THE SECOND GRADIENT IN THE LOWER 

TRIANGULAR AND DIAGONAL LOCATIONS* AND THE OFF-DIAGONAL 
A PRIORI WEIGHTINGS IN THE UPPER TRIANGULAR. THE DIAGONAL 
A PRIORI WEIGHTINGS ARE STORED IN THE CAPR3 MATRIX. THE 
FIRST GRADIENT APPEARS AS AN EXTRA COLUMN IN CSUM3 
< THE JKM COLUMN ). 

CZ3.CU3 • MEASURED VALUES OF OBSERVATIONS AND CONTROLS 
C XT 1 3 • COMPUTED VALUES FOR 0BRESVATI0N6 

CXT23 - COMPUTED VALUES FOR OBSERVATIONS 

CXY33 * VARIABLE ZEROS ON THE OBSERVATIONS 
CXT43 • VARIABLE BIAS ON THE OBSERVATIONS 

CXT53 - DIFFERENCE BETWEEN ESTIMATED COEFFICIENTS AND THE 
A PRIORI VALUES 
MX - NUMBER OF STATES 

MU * MUMBER OF CONTROLS 

MZ • NUMBER OF OBSERVATIONS 


COMMON /ALLDIM/ MAX. MAT 
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0C03 

0004 

0005 

0006 
0007 

0006 


0009 

0010 
0011 
0012 

0013 

0014 
0016 


0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 


0026 

0028 

0030 

0032 

0034 

0036 

0037 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0050 

0051 

0052 

0053 

0054 

0055 

0057 

0058 

0059 

0060 
0061 


0062 

0064 


COMMON /SUBURT / ISUB 

COMMON /MATRIX/ A • B f AAf BD f AP f BP » D 1 

COMMON /VECTOR/ Uf Z f XTl f XT 2 f XT4 f XTS* ZEROf BIAS# I BIAS 
COMMON /ARRAYS/ D2 f APHI t PHI 1 * DUMf BJ1 f X JI f SUM f APR 
COMMON /XNSTRM/ XAX t ZAX » XAY « YAY fZAY $ XAZ * ZAZf THAI fCOSTHI » 

1 S I NTHI 9 ORV 

COMMON /NUMBER/ JKMM * JKMf JKHM1 • HM . T IME f TT f NN t NNM1 t L i 

1 LLfITRfMUfMZfMXfMXPI f 1 » IAf Jf JKfKfKJfNI t 

2 ITHINfERRSUM 

COMMON /COMMND/ LONG * L ATR t EXTRA # BYPASS > MAPR 
DIMENSION AP(8f4)fBP(8»3)fXT4(4)f DUM<25»4) f XT2( 7 ) 

DIMENSION XT5< 25 ) f APR < 25) fZERO(S) »BJA8(5> 

DIMENSION Z<7f3) fU<3f3> fD2(7> fAPHI ( 5t4> fXTI (7) fPHI1(5f4> f 
1 D1 < 8 t 7 ) 9 A<5f 4 ) fP(5f4>f8JX(25f4)*XJ1 (25»8> fSUH( 25»25 ) 

LOGICAL*! LONG f L AT R f EXTRA f BYPASSf AA(5f 4 > f BB< 5 f 4 ) 

IT < I SUB • GE • 1 > PRINT 2001 
2001 FORMAT ( ' SUBROUTINE AGIRL * / 

C 

C 

c 

ANPT • FLOAT < NNM1 ) 4 1. 

C***»*t«**t*»tt**t* TIME LOOP 
TT » TIME . HH 

DO 41 I-2fNNM1 
TT • TT 4 HM 

DO 28 JK-lfJKH 
DO 28 J*MXP1fMZ 
28 XJX(JKfJ) • 0* 

DO 170 IA- 1 fMX 
170 XJI(JKMfIA) « XT2 ( I A ) 

C***f ************** READ IN MEASURED RESPONSES FROM DATA FILE 
C****************** READ IN LONGITUDINAL DATA 

IF (LONG) READ ( 4 ) Z ( 4 f 3 ) f Z < 1 f 3 > f Z ( 7 f 3 ) f Z < 6 f 3 > f U( 1 f 3 ) f AM 6 f AM7 t A 1 I 8 f 
1 AM9 f AMICf AMI 1 

IF (LONG. AND. EXTRA) READ ( 4 ) Z ( 2 f 3 ) * Z ( 3 f 3 ) f It 5 f 3 ) > AMISf AH16f AM17 
IF (LONG) U ( 2 f 3 ) » 0. 

C****************** READ IN LATERAL DIRECTIONAL DATA 

IF (LATR ) READ( 4 ) AMI f AM2 « AM3 f AH 4 r AMS f Z ( 4 f 3 ) fZ(1f3)fZ(7f3) f Z ( 2 f 3 ) f 
1 U(1*3)fU(2»3) 

IF (LATR. AND. EXTRA) READ < 4 > AM12 f AMI 3 f AM 1 4 f Z ( 3 f 3 > f Z ( 5 f 3 ) f Z ( 6 f 3 ) 
C****4************* DELETE UNWEIGHTED DATA FROM INPUT 
DO 2525 I ABC* 1 f 7 

IF (DKIABCfIABO.NE.O.) GO TO 2524 
Z ( I ABC f 3 ) - 0. 

2524 CONTINUE 

2525 CONTINUE 

MAX r N I 

CALL AZOT(BJI) 

JK » 0 

DO 44 J*1 f MX 
DO 43 K*1 f MU 

DJI ( JKMf J) - BJI< JKMf J)4B( JfK)*(U(K#3)4U(Kf2>)*.5 

IF ( .NOT . BB( JfK) ) GO TO 43 

JK * JK 41 

XJI ( JKf J4MX)* U(Kf2)*BP( J4MXfK> 

BJI(JKfJ) - .5*(U(Kf2)4U(Kf 1 > ) 

43 CONTINUE 

DO 44 K* 1 f MX 

IF ( «NOT.AA( JfK) ) GO TO 44 
JK • JK 4 1 

C****************** SPECIAL OPTION IF FIRST TIME THROUGH 
IF (LL-1) 2 f 2 f 4 
2 CONTINUE 

BJICJKfJ) * »5*(Z(Kf2)4Z(Kf1) ) 

XJI ( JKf J4MX)* Z ( K f 2 ) *AP ( J4MX f K ) 

C****************** IF ALL STATES £Z(1fX) TO Z(4fX)3 ARE NOT MEASURED 
C****************** THEN REPLACE THESE 0. VALUES TO KEEP FROM HAVING 
C* ******** ***£***** A SINGULAR SUM MATRIX 
IF (DI(KfK) » NE • 0 • ) GO TO 44 
4 CONTINUE 
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0144 

61 

FORMAT < 10X»6F12*4) 


emu 

ll«M*«*t***M SAVE TIME HISTORIES ON DISK FILE 

0145 


WRITE (3) <XT2UA)tlA*l#7) 

0146 

80 

CONTINUE 

0147 


DO 91 J» 1 1 JKN 

0146 


DO 91 1 4* J r JKM 

0149 


DO 92 K* 1 • MZ 

0150 

92 

SUM <14. J) - SUM<14. J)4XJI<I4»K)*D1<K»K)*XJ1< J»K) 

0151 

91 

CONTINUE 

015? 


DO 69 I A«1 » HZ 

0153 


Z ( I At ) ) • Z ( I A 1 2 ) 

0154 

69 

Z(IA.2> - Z ( I A t 3 > 

0155 


U<1.1) » U ( 1 « 2 ) 

0156 


U( 2t 1 ) - U(2>2) 

0157 


U ( 1 . 2 ) • U ( 1 . 3 ) 

0158 


U ( 2 . 2 ) ■ U< 2. 3) 

0159 

41 

CONTINUE 


Ct*»*t****«**«***t* PRINT OUT CASE INFORMATION 

0160 


ERRSUh ■ SUM( JKMt JKM )/ANPT 

0161 


PRINT 607 1 ERRSUM 

0162 

607 

FORMAT < / 1 10X 9 ' WEIGHTED ERROR SUM ■ '91PE12.4) 

0163 


It AX - 8 

0164 


PRINT 608 

0165 

608 

FORMAT <10X9 'WEIGHTED ERRORS! ' ) 

0166 


PRINT 606 t <D2<IA)*D1< IAt I A > / ANPT . I A- 1 . HZ ) 

0167 

606 

FORMAT <10>'9l0<lPE12«4)9/> 

0168 


DO 886 I JK* 1 9 JKM 

0169 

888 

SUH< 1 JK t JKM > • SUH(JKH.IJK) 

0170 


IF < MAPR) 180» 181 9 180 

0171 

1BC 

DC 182 ID*1 1 JKM 

0172 


SUM< I&9 JKM) *~XT5< IB)*APR< ID > 4-SUM < IB. JKM) 

0173 


SUM < ID. ID ) ■ SUM< IB 9 ID >4 APR < IB ) 

0174 


I BM1 « IB-1 

0175 


DO 182 I A»1 t IBM1 

0176 

182 

SUM ( 1 B« I A ) • SUM< XB9 IA)+SUM< 1A» IB) 

0177 

181 

CONTINUE 

0178 

531 

F0RMAT<10X9' WOULD YOU BELIEVE './/> 

0179 


IF < ISUB.GE.2) PRINT 531 

0181 


RETURN 

0182 


END 


Subroutine AEAT 

Description: Subroutine AEAT computes the transition matrix 

and its integral, e^ fc and /^e^dt, respectively. It uses the 
Taylor series expansion to ten terms for these calculations. 


Listirr. : 


FORTRAN IV V02.5-2 Sun 17-J«n-B2 00J29558 


0001 

C 

C 

C 

C 

C 


SUBROUTINE AEAT < At T . PHI t APHI * A2 t A3 > 


THIS SUBROUTINE CONFUTES THE TRANSITION MATR1* 
AND ITS INTEGRAL USING A TAYLOR SERIES EXPANSION 
TO 10 TERMS. 


RAGE 001 
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o . 
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( XT2 ( K > 4XT 1 ( K ) > * » 5 
XT? { K ) t AP ( J4MX 9 K ) 

HI 


0065 BJKJKiJ) • 

0066 XJI ( JK t J4MX )' 

0067 44 CONTINUE 

0066 MAX • 

0069 HAT r 5 

0070 X JI ( N1 t 2 ) « MX 

0071 CALL AMULT (XJItPHIl » X JI » DUM ) 

0072 CALL AMULT ( DJI t APHI t DUM t DUM ) 

0073 CALL AADD< 1 »OtDUMt 1«0»XJI»XJX ) 

0074 XJKNI.2) - M2 

0075 I DIAS * 0 

0076 DO 162 I A* 1 9 MX 

0077 XF <DXA6(XA>> 163»162fl63 

0076 163 1 6 1 AS * IBIAS41 

0079 DO 175 IB-ltMZ 

0080 175 XJI ( JKMM+IDIASf IB>» 0. 
C***t*t*i*»****»ttt CORRECTION FROM NASA 

0081 X JI < JKHM+XBIASt I A4HX >■ 1. 


TN 


0082 

0083 

0084 

0085 

0086 

0087 

0088 
0089 


0090 


162 CONTINUE 

JKMM1 * JKM-1 

DO 7 JK-l.JKMM 
DO 7 L*MXP 1 » M2 
DO 7 K*1 f MX 

XJI ( JK tL > - XJI<JK»L)4A(L-MX»K)*XJI( JK 9 K > *AP < L f K > 

7 CONTINUE 

DO 9 L*MXP1 9 M2 


ctmttmmmm 

XJKJKMtL) • 


CORRECTION FROM NASA TN 
ADD VARIABLE DIAS TO STATES 
XT4<L-HX) 


0091 DO 8 K*1 1 MU 

0092 XJI ( JKMvL ) ■ XJK JKMfL)+B(L-MX9K)»U(Kt3>*BP<L9K> 

0093 8 CONTINUE 

0094 DO 9 K-lfMX 

0095 XJX(JKMtL) 

0096 9 CONTINUE 

C»t***»*t**«»****** TRANSLATE TO INSTRUMENT 
C****************** LONGITUDINAL CASE 


XJI < JKMt L > +A < L-MX »K > *X JI < JKM 9 K > BAP ( L t K > 


AXES AND LOCATION 


009T 

IF 

(LONG) 

AXI « 

COSTHI«XJI( JKM»6>-SINTHI*XJI < JKM> 

0099 

IF 

(LOi'O) 

A21 

SINTHI*XJ1( JXh.6)+C0STHI»XJI(JKH» 

0101 

IF 

( LONb > 

PI 

C0STHX*AN7 -SINTHI*AM9 

0103 

IF 

(LONG 

QDOTI 

XJI ( JKNi 5> 

0105 

IF 

(LONG) 

GI 

XJI ( JKMt 1 ) 

0107 

IF 

tLONG) 

RI * 

SINTHI *AM7 *CDSTHI*AH9 

0109 

IF 

(LONG) 

XJKJKM94) » 

XJI ( JKM* A > + THAI 

0111 

IF 

(LONG) 

XJI ( JKM 96 ) « 

AXI + <ZAX*0D0TI-XAX*(0I**2+RIM2) > 

0113 

IF 

(LONG) 

XJKJKM97) « 

<AZI+<-XAZ*ODOT1-ZAZ*<OI**2+PI**2 


Ct#«*$****a»****** LATERAL-DIRECTIONAL CASE 

0115 

IF 

( LATR ) 

PI ■ 

COSTHIf XJI ( JKM 9 1 )- SINTHI* XJI ( JKMt 

0117 

IF 

< LATR > 

RI » 

SINTHIBXJK JKMtX)4C0STHI*XJI( JKM 9 

0) 19 

IF 

(LATR) 

PI DOT 

COSTHI f XJI ( JKMt 5 )-SINTHIBX JI ( JKM 9 

0121 

IF 

(LATR) 

RIDOT 

SINTHItXJI ( JKM 9 5 ) 4CQSTHI *X JI (JKMt 

0123 

IF 

(LATR) 

XJKJKMtl) » 

PI 

0125 

IF 

(LATR) 

% JI ( JKM 9 2) « 

RI 

0127 

IF 

(LATR) 

X JI f JKM 9 5) • 

PIBOT 

0129 

IF 

(LATR) 

XJI ( JKM 96 ) • 

RIDOT 

0131 

IF 

(LATR) 

XJI ( JKM 9 7 ) ■ 

XJI ( JKMt? >4(-ZAY*PXD0T4XAY*RID0T 


1 



-YAY*(PX**24RI**2> )/GRV 

0133 

DO 

3 J*1 9 M2 


0134 

XT 1 ( J ) 

« XT2 ( J ) 


0135 

XT 

2( J) 

* XJI ( JKM 9 

J) 

0136 

XJI ( JKMs J) 

■ Z< J.3>-XT2< J> 

0137 

3 CONTINUE 



0138 

DO 

27 K*1 tMZ 


0139 

D2 

<K) 

- D2(K)4XJI( JKM 9 K ) **2 


0140 

0141 

0142 


27 


CONTINUE 

MAX 


« N I 

««m*t*m«« IF TEST THEN PRINT OUT TIME HISTORIES 
IF (ISUB.0E.6) PRINT 81 9 ( XT2< IA> t I A»1 9 7 > 9 TT 
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0002 

0003 

0004 

0005 
0007 


0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 


0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 


C 

c 

c 

c 

c 

c 

c 

c 

c 


C A3 ■ STABILITY MATRIX 

T « DELTA TIME INCREMENT 

CPMI3 • TRANSITION MATRIX 

CAPHT3 • INTEGRAL OF THE TRANSITION MATRIX 

CA23 ■ DUMMY MATRIX 

CA33 ■ DUMMY MATRIX 


COMMON /ALLDIM/ MAX r MIX 
COMMON /SUBWRT/ ISUD 


DIMENSION A< 1 ) tPHI ( l > » A2 ( 1 > # APHI ( 1 ) # A3< 1 ) 
IF i I SUB • GE • 3 > PRINT 2001 
2001 FORMAT (' SUBROUTINE AEAT ' > 


C 

C 

c 

c**t**t**$**$**t*t* FIND AND SET MATRIX DIMENSIONS 
MAX2 ■ MAX *2 

II - A(MAX) 

PHI < MAX ) - A( MAX ) 

PHI ( MAX2 ) * A ( MAX ) 

CALL AZOT < PHI ) 

CALL AMAKE < APHI »PHI ) 

CALL AMAKE < A3 * PHI ) 

MI —MAX 

Ct***t*tt**t«****** SET PH} EQUAL TO IDENTITY MATRIX 
DO 1 1«1»II 
MI » MI4MAX 

PHI ( M 1 4 1 > * 1. 

1 CONTINUE 

C*»ttt***t*****«»** PERFORM TAYLOR SERIES SUMMATION 
CALL AMAKE < A2 1 PHI ) 

G * 1 . 

DO 2 I-lflO 
BB * I 

G ■ G*T/BB 

CALL AADDd.t APHI » G »A2 .APHI > 

CALL AMULT (A.A2.A2.A3) 

CALL AADD(l.tPHI»G'A2»PHI> 

2 CONTINUE 

C*»t**t**t**«*t*t*« TRANSPOSE MATRICES 
DO 10 1*1.11 
DO 10 J-l.I 

JI ■ <I-1)*HAX+J 

IJ * ( J-1>*MAX+I 

TEMP ■ PHKIJ) 

PHI ( I J> ■ PHKJI) 

PHI ( JI ) « TEMP 

TEMP « APHI < I J ) 

APHI < I J) ■ APHI < JI ) 

10 APHI ( JI > « TEMP 

Ct*i;tt******tt***« PRINT OUT MATRICES FOR TEST 
IF (ISUB.LT.3) RETURN 
PRINT 1000 

1000 FORMAT ( 10X . 'PHI MATRIX ' ) 

CAl ASPI T < PHI > 

PRIt T 1001 

1001 FORMAT ( 1 OX » 'APHI MATRIX ' ) 


CALL ASPIT ( APHI ) 

RETURN 

END 
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Subroutine AMAKE 

Description : Subroutine AMAKE moves a copy of matrix Y into X. 

Listing: 


FORTRAN IV V02.5-2 Sun 17-J»n-82 00130524 


PAGE 001 


0001 


0002 

0003 

0004 

0005 
0007 


0008 

0009 

0010 
0011 

0012 

0013 

0014 

0015 

0016 
0017 

ooie 

0019 


SUBROUTINE AMAKE < X , Y ) 

C 

c 

C THIS SUBROUTINE GENERATES A MATRIX CX3 THAT IS 

C A COPY OF MATRIX CY3. 

r 

C CX 3 - NEW MATRIX, COPY OF CY3 

C C Y 3 ■ M-TRIX TO BE COPIED 

C - - - 

C 

COMMON /ALLDIM/ MAX, MIX 
COMMON /SUBURT/ ISUB 
DIMENSION X < 1 > , Y ( 1 ) 

IF ( ISUB • GE « 4 ) PRINT 2001 
2001 FORMAT ( * SUBROUTINE AMAKE') 

C 

C - - 

c 

Cktttlllilttttitllt FIND MATRIX DIMENSIONS 
MAX2 - MAXt 2 

I X Ml * v < MAX > -1 • 

JJM1 * Y ( MAX2 ) • 1 • 

LEND * JJMltMAXil 

CU»»«>«IM»t>»»l>t PERFORM MATRIX COPYING 
DO 1 L*1 »LEND, MAX 
KEND « L+IIM1 
DO 1 K*L , KEND 
1 X ( K ) ■ YiK) 

ctMtmmmimi set matrix dimensions 

y.(MAX) * Y < MAX ) 

X ( MAX2 > » Y (MAX2 ) 

RETURN 

END 


Subroutine AZOT 

Description: Subroutine AZOT initializes the elements of a 

matrix to zero. 


Listing: 


FORTRAN IV V02.5-2 Sun 17-J«n-82 00530546 

0001 SUBROUTINE AZOT(X) 

C 

C 

C THIS SUBROUTINE SETS ALL ELEMENTS OF A MATRIX 

C TO ZERO, 

r C 
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C CX3 - MATRIX TO BE ZEROED 

C 

c 

0002 COMMON /ALLOIM/ MAX t MI X 

0003 COMMON /SUDURT/ ISUB 

0004 DIMENSION X<1> 

0005 IF < ISUB * GE . 4 > PRINT 2001 

0007 2001 FORMAT ( ' SUBROUTINE AZOT') 

C 

C 

c 



c*< 


■««*****» FIND MATRIX DIMENSIONS 

oooe 


MAX2 

■ MAX«2 

0009 


1 1 Ml 

» X < MAX > • 1 . 

0010 


JJMl 

« X ( MAX2 ) - 1 ♦ 

0011 


LEND 

• J JM 1 IMAX4 1 


C*l 

r «««****1 

Ittttmi PERFORM MATRIX INITIALIZATION 

0012 


DO 1 

L-l rLEND.MAX 

0013 


KEND 

« L+IIM1 

0014 


DO 1 

K-LfKEND 

0015 


1 X ( K > 

• 0 • 

0016 


RETURN 

0017 


END 



Subroutine REDUCE 


Description: Subroutine REDUCE factors a symmetric matrix 

by Cholesky's matrix decomposition method. This factoring is used 
for updating the coefficients and for calculation of the confidence 
levels. 


Listing: 


FORTRAN IV V02.5-2 Sun 17-J*n-62 00131:08 


PAGE 001 


0001 


0002 

0003 

0004 
0006 


0007 


SUBROUTINE REDUCE(A) 

C 

C 

C THIS SUBROUTINE FACTORS A SYMMETRIC MATRIX CAD BY THE 

C ‘CHOLESKY'S* MATRIX DECOMPOSITION . THE MATRIX IS FACTORED 

c into: 

c 

C CLI3 * CD3 * C L I *3 ♦ 

C CL3 * LOWER TRIANGULAR MATRIX WITH UNITY DIAGONAL ELEMENTS 

C CD3 « DIAGONAL MATRIX 

C I 1 DENOTES INVERSE OPERATION 

C * 1 DENOTES TRANSPOSE OPERATION 

C 

c 

COMMON /SUBWRT/ ISUB 
DIMENSION A ( 25f 25 ) 

IF ( ISUB . GE • 3 ) PRINT 2001 
2001 FORMAT ( ' SUBROUTINE REDUCE' > 

c 

c 

c 

C*«*«*t***tt**<*> ** FACTOR MATRIX 
N « A ( 25 1 1 > 
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0006 N Ml ■ N-l 

0009 DO 20 K« 1 1 NM1 

0010 KP1 ■ K4- 1 

0011 KM 1 ■ K-l 

0012 AKK1 • 1 » / A(K «K ) 

0013 DO 20 I*KPl »N 

0014 AKKIK ■ A ( I »K ) tAKKI 

0015 DO 10 J*l t N 

0014 10 A < J 1 1 ) * A< J » 1 > -AKKIK$A( J» K ) 

0017 A < 1 1 K ) *-AKK IK 

0016 IF ( KH1 .EG » 0 ) 00 TO 20 

0020 DO 15 J«1»KH1 

0021 15 A < I t J ) » A < I 9 J ) - AKK 1K4A< K 9 J ) 

0022 20 CONTINUE 

cmmtmmttt** cti is nou stored in lower triangular part of cai 

C****tt*t*****«tfttt EXCEPT FOR DIAGONAL » WHICH CONTAINS CD3 

0023 RETURN 

0024 END 


Subroutine AADD 

Description: Subroutine AADD add6 scalar multiples of two 

matrices. 


Listing: 


FORTRAN IV V02.5-2 Sun 17'J»n-G2 00131:30 


PAGE 001 


0001 


0002 

0003 

0004 

0005 
0007 


6UDR0UT1NE AADD <GfX»H'Y»Z> 

C 

C 

C THIS SUBROUTINE ADDS SCALAR MULTIPLES OF TWO 
C MATRICES AS FOLLOWS! 

C 

C C23 * G*CX3 ♦ H*CY3 WITH 1 G « 1.0. 

C ( NO CHECKING IS MADE FOR MATRIX COMPATIBILITY 

C 

c 

COMMON /ALLDIM/ MAXf MIX 
COMMON /SUBWRT / ISUB 
DIMENSION X(l)fY<l)tZ(l) 

IF (ISUB.GE.4) PR X N T 2001 
2001 FORMAT ( ' SUBROUTINE AADD') 


C 

c 

c 

C***M**t*****t*t»* FIND MATRIX DIMENSIONS 


0008 

G 

■ 

1 . 

0009 

MAX2 

* 

MAX*2 

O010 

11 

K 

X < MAX ) 

0011 

JJ 

m 

X (MAX2 ) 

0012 

JEND 

w 

l JJ-1 >*HAX+1 

0013 

1 1M1 

V 

IX-1 


Cttttt**t*«t**St**¥ PERFORM MATRIX SCALAR ADDITION 

0014 DO 53 J* 1 » JEND » MAX 

0015 KEND * J41IM1 

0016 DO 53 K» Jt KEND 

0017 53 Z ( K ) - G*X(K)+H*Y<K) 

0016 Z (MAX ) » X ( MAX ) 

0019 Z ( MAX2 ) * X ( MAX2 ) 

0020 RETURN 

0021 END 


) 
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Subroutine AMULT 


Description: Subroutine AMUlT computes the matrix product of 

two matrices. It places the result into a third matrix which cannot 
be either of the first two matrices. 


Listing : 


FORTRAN IV 


V02.5-2 


Sun 1 7- Jsn-82 00131:52 


RAGE 001 


0001 


SUBROUTINE AMULT ( A » B . C » D ) 


C 

C 

C 

C 

c 

c 

c 


THIS SUBROUTINE COMPUTES THE PRODUCT OF TWO 
MATRICES AND PLACES THE RESULT IN A THIRD MATRIX. 


m * CAD1CB3 S CCD • CIO 
< NO CHECKING IS MALE FOR MATRIX COMPATIBILITY ) 


0002 

C 

C 

COMMON 

/ALLDIM/ MAXpMIX 

0003 


COMMON 

/SUBWRT/ I SUB 

0004 


DIMENSION A< 1 ) » B( 1 ) »C< 1 ) »D( 1 ) 

0005 


IF (ISUB.0E.4) PRINT 2001 

0007 

2001 

c 

FORMAT ( 

' SUBROUTINE AMULT' > 


L 

c 

c «***1 


****** FIND AND SET MATRIX DIMENSIONS 

oooe 


MAX2 

■ MAX. 2 

0009 


MIX2 

- MI X*2 

0010 


II 

* A < MAX ) 

0011 


IK MAX) 

■ A ( MAX ) 

0012 


C < MAX ) 

* A ( MAX ) 

0013 


JJ 

■ A ( MAX2 ) 

0014 


KK 

« B(MIX2) 

0015 


D < MAX2 > 

• B < MI X2 ) 

0016 


C ( MAX2 ) 

- B ( MI X2 ) 


c. <<>*»»***.***><*> PERFORM MATRIX MULTIPLICATION 

0017 


JE 

* <JJ-1)*MAX 

0016 


KE 

» < KK- 1 ) *MAX 

0019 


DO 20 I 

*1 t 1 1 

0020 


KEND 

- KE+I 

0021 


JEND 

* JE + I 

0022 


L 

■ 1 

0023 


DO 20 K 

*1 t KENDt MAX 

0024 


IKK) 

■ 0. 

0025 


JB 

* L 

0026 


DO 10 J 

"I t JEND* MAX 

0027 


IKK) 

- A< J>**< JB)+D<K) 

0028 

10 

JB 

* JM 1 

0029 

20 

L 

* L + MIX 


C****....*..*.*.... COPY MATRIX CD3 INTO CCJ 

0030 


CALL AMAKE(CfD) 

0031 


RETURN 


0032 


END 
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Subroutine ALOAD 

Description: Subroutine ALOAD loads matrices from the input 

file created by SETUP. 


Listing : 


FORTRAN IV V02.5-2 Sun 17-Jan-82 00133102 


PAGE 001 


0001 


0002 

0003 

0004 
0006 


0007 

oooe 

0010 

0011 


SUBROUTINE ALOAI) (N»A»D#CtD> 

C 

C 

C THIS SUBROUTINE LOADS MATRICES CA3rCB3fCCJ AND CDS 
C FROM AN INPUT FILE. THE VARIABLE N SPECIFIES THE 

C NUMBER OF MATRICES TO BE LOADED. 

C - - 

C 

COMMON /SUBWL l / ISUD 
DIMENSION A< 1 >'B< 1 > 'C<1 >»D( 1 > 

IF (ISUB.GE.4) PRINT 2001 
2001 FORMAT ( * SUBROUTINE ALOAD' > 

C 

C - 

C 

cmmmummi perform matrix loading 

CALL AL0ADKA) 

IF (N.LT.2) RETURN 
CALL ALOADl(B) 

IF < N « LT • 3 ) RETURN 


0013 

CALL AL0AB1 < C > 

0014 

IF (N.LT.4) RETURN 

0016 

CALL ALOADKD) 

0017 

RETURN 

001B 

END 


Subroutine AL0AD1 

Description: Subroutine ALOAD1 actually reads the input from 

the SETUP file for storing into the matrix A. 


Listing: 


FORTRAN IV V02.5-2 Sun 17-Jan-82 00133123 


PAGE 001 


0001 


0002 

0003 

0004 

0005 
0007 


SUBROUTINE ALOADKA) 

C 

C 

C THIS SUBROUTINE PERFORMS THE ACTUAL LOADING OF 

C A MATRIX FROM THE INPUT FILE. 

C 

C C A3 * MATRIX TO BE LOADED 

C < FIRST RECORD CONTAINS THE MATRIX DIMENSIONS ) 

C 

C 

COMMON /ALLDIM/ MAX » MIX 
COMMON /SUBURT/ ISUB 
DIMENSION A < 1 > 

IF (ISUB.GE.5' PRINT 2001 
2001 FORMAT ( ' SUBROUTINE AL0AD1 ' > 
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C 

c ~ - 

c 

READ MATRIX DIMENSIONS 


0006 


REAt»(;*»lOO> II. JJ 

0009 

100 

FORMAT (8XiI2'I10) 

0010 


KE ■ ( JJ-1 >.MAX 

0011 


DO 10 I-1.I1 

0012 


MENU • I.KE 



It. READ MATRIX 

0013 

10 

REAIK2. 1001 > <A<K>*K»I.KEND.MAX) 


c****< 


0014 


A ( MAX ) • 11 

0015 


A ( MAX *2 ) ■ JJ 

0016 

1001 

FORMA f ( 8F 12 • 6 > 

0017 


RETURN 

0018 


END 


Subroutine ASPIT 


Description: Subroutine ASPIT prints out a matrix. 


Listing: 


FORTRAN IV V02.5-2 Sun 17-J«n-82 00133145 


PAGE 001 


0001 SUBROUTINE ASPIT(X) 


0002 

0003 

0004 

0005 
0007 


C 

C 

C 

C 

c 

c 

c 


THIS SUBROUTINE PRINTS OUT A MATRIX. 
CX3 « MATRIX TO BE PRINTED OUT 


COMMON /ALLDIM/ MAX 'MIX 
COMMON /SUBURT/ ISUB 
DIMENSION X<1) 

IF ( I SUB » OE • 4 ) PRINT 2001 
2001 FORMAT ( ' SUBROUTINE ASPIT' > 
C 

C -------------- 

c 


0008 

100 

FORMAT ( 10X » ' DIMENSION '.13.' BY '.I! 

0009 

101 

FORMAT < 1 OX ' 10 < 1 PE 12. 4) > 



0010 


MAX 2 • MAX t 2 

0011 


II * X < MAX ) 

0012 


JJ * X ( MAX2 ) 


CS*«tl 

1. .......... ft. PERFORM MATRIX OUTPUT 

0013 


PRINT 100' II'JJ 

0014 


KE - (JJ-1)*MAX 

0015 


DO 1 I-1'I1 

0016 


KEND ■ I 6KE 

0017 

1 

PRINT 101' <X(K)'K*I»KEND' MAX ) 

ooie 


RETURN 

0019 


END 
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Subrout ine / SPIT1 


Description: Subroutine ASPIT1 is a special form of ASPIT. 

In this form the printing of the matrix is combined with printing 
of or " " which show whether a matrix element is a variable 

or not. 


Listing: 


FORTRAN IV V02.5-2 Sun 17-J«n-B2 00134:06 


PAGE uOl 


0001 


0002 

0003 

0004 

0005 

0006 
0007 
0009 


0010 

0011 

0012 

0013 

0014 

0015 

0016 
0017 

ooie 

0019 


0020 

0021 

0023 

0024 

0025 

0026 


SUBROUTINE A8PIT1<X»XX> 

C 

C 

C SUBROUTINE USED FOR THE PRINTOUT OF MATRICES . 
C ( SPECIAL OUTPUT FOR CA3 AND CB3 MATRICES > 

C 

C CX3 ■ MATRIX TO BE PRINTED OUT 

C CXX3 • MATRIX WHICH SHOWS VARIABLES 

C .... .... 

c 

COMMON /ALLDIM/ MAX .MIX 
COMMON /SUBWRT/ ISUB 
DIMENSION X<1> 

LOGICAL* 1 XX(l) 

BYTE CHAR < 4 ) 

IF (ISIJB.GE.4) PRINT 2001 
2001 FORMAT ( ' SUBROUTINE ASPIT1 ') 

C 

c 

c 

100 FORMAT ( 10Xt 'DIMENSION '>I3»' BY'*I3> 

101 FORMAT <10Xr5(lPE12*4»Al > ) 


Otttttmtmttttt FIND MATRIX DIMENSIONS 
MAX2 ' MAX*2 

II • X ( MAX ) 

JJ » X ( MAX2 ) 

CSSS* ************** PERFORM MATRIX OUTPUT 
PRINT 100i IlfJJ 
KE - <JJ-1>*MAX 


DO 1 I-lfII 
KEND - I+KE 
DO 2 K« I * KENDtMAX 

C****************** '*' INDICATES THFT A VALUE IS NOT A VARIABLE 
C****************** IN EIT&F.R THE C A3 OR CB3 MATRICES 
CHAR< (K-I ) /MAX 41 )■' • 

IF ( .NOT . XX < K ) ) CHAR ( < K-2 > /MAX 41 >» ' * ' 

2 CONTINUE 

1 PRINT 101' ( ( X (K ) t CHAR ( ( K-I ) /MAX 4 1 ) ) »K«I t KEND t MAX ) 

RETURN 

EN*i 
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Subroutine SOLVE 

Description: The subroutine SOLVE is used to solve the set 

of linear equations, Ax • b, where A is a symmetrical matrix. 

Listing: 


FORTRAN IV VC2.5-2 Eun 17-J«n-82 0013412? 


FADE 001 


0001 


0002 

0003 

0004 
0006 


0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 


SUBROUTINE ?9!WE<a»X> 

C 

C 

C THE FOLLOWING SYSTEM OF LINEAR EQUATIONS 18 SOLVES ST 

C THIS SUBROUTINE t 

C 

C CA3SCX3 • CB3 * 

C CAT - SYMMETRICAL MATRIX 

C CBT • N41 COLUMN OF C A3 MATRIX 

C N DIMENSION OF SYSTEM 

C - - 

C 

COMMON /BUBWRT / ISUB 
DIMENSION A( 25* 25 ) * X < 25 ) 

IF < ISUB • OE • 3 ) PRINT 2001 
2001 FORMAT < ' SUBROUTINE SOLVE') 

C 

C 

c 

factor symmetric matrix cat into cls 

CALL REDUCE ( A > 

N « A <25*1 > 

NM1 • N-l 

NP1 • N41 

cmstummtim multiply clj » cbt 

DO 70 I*2*N 
X ( I ) * A(I'NPl) 

IM1 ■ 1-1 

DO 70 J* 1 * I M 1 


0015 70 X(I) * X(I)4A(If J>*A(JfNPl) 

£**%* Itmtiutu MULTIPLY BY CDI3 

0016 , t 1 • NP1 ) • A ( 1 f NP 1 > / A ( 1 1 1 ) 

0017 DO 80 I"2tN 

0016 80 A(I»NP1)> X<I)/A(If!) 

ctiutmmtmttl MULTIPLY BY CL*3 TO FORM CLS3SCDI3SCL3SCB3 

0019 DO 90 I-1'NM1 

0020 X(I> - A < I * NP1 # 

0021 ip: * 141 

0022 DO 9', .i*IPl * N 

0023 vO X(I) • X < I > 4A( Jf I )BA( Jf NP1 ) 

0024 X ( N ) ■ A ( N f NP1 > 

0025 RETURN 

0026 END 
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Subroutine INV 


Description: Subroutine INV inverts a general matrix. Gaussion 

elimination is used without pivoting. This is allowed, since the 
matrix is near-diagonal (R) and well conditioned. 


Listing: 


FORTRAN XV V02.5-? Son 17-Jsrt-82 00234153 


FADE 001 


0001 

c 

c 

c 

c 

c 

c 

c 

c 

c 

0002 


SUBROUTINE INV(A.MAX) 


THIS SUBROUTINE INVERTS A OENERAl MATRIX IN PLACE 
USING GAUSSIAN ELIMINATION (NO PIVOTING) 

C A3 * MATRIX TO BE INVERTED 
MAX ■ NUMBER OF ROUS IN MATRIX 


COMMON /SUDURT/ 2 SUB 


0003 DIMENSION A^iAXtA) 

0004 IF (ISUB.GE.3) PRINT 2001 

0006 2001 FORMAT ( ' SUBROUTINE INV') 


C 

C - 

c 

cmmtmmmtt compute inverse of cad and store result in cad 


0007 


N • A ( MAX 1 1 ) 

0008 


DO 80 K«1»N 

0009 


BIGA - A(KfK) 

0010 


DO 50 I » l • N 

0011 


IF U.EQ.K) GO TO 50 

0013 


A ( I v K ) »-A( 1 #K ) /BIGA 

0014 

30 

CONTINUE 

0013 


DO 60 1*1 *N 

0016 


IF (I.EO.K) GO TO 60 

0018 


DO 55 J*1 f N 

0019 


IF (J.EO.K) GO TO 55 

0021 


A ( I • J ) * A ( I r J > + A ( I vK)tA(KfJ) 

0022 

55 

CONTINUE 

0023 

60 

CONTINUE 

0024 


DO 70 J*1 f N 

0025 


IF (J.EO.K) GO TO 70 

0027 


A(KtJ) ■ A(K» J) /BIGA 

0028 

70 

CONTINUE 

0029 

80 

A(KtK) ■ 1 • /BIGA 

0030 


RETURN 

0031 


END 
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Subroutine CRAMER 

Description: Subroutine CRAMER computes the confidence levels 

based upon Cr&m&r-Rao bounds. This routine assumes that the a priori 
option has not been used, since their contribution to the second 
gradient has not been removed. 


Listing: 


FORTRAN IV V02.5-2 Sun 17-J#n-B2 00*33*30 


FADE 001 


0001 


0002 

0003 

0004 

0005 

0006 
0007 
0000 

0009 

0010 
0011 
0012 
0014 


0015 
00 U 
0017 
0010 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 
0020 

0029 

0030 

0032 

0033 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


2001 

c 

c 

c 


SUBROUT I NE CRAHER ( SUM # MU# MX • M2 • ERRtUH > 


THIS SUBROUTINE COMPUTES THE CRAHER-RAO BOUNDS 
ALSO KNOWN AS THE CONFIDENCE LEVELS OF THE 
ESTIMATED DERIVATIVES • 

CSUM3 - SECOND GRADIENT MATRIX 

HU • NUMBER OF CONTROL INPUTS 

MX • NUMBER OF STATES 

MZ « NUMBER OF OBSERVATIONS 

ERRSUM - WEIGHTED ERROR 


COHHON /ALLDIM/ MAX » MX X 
COMMON / SUBWRT / ISUP 
COMMON /MATRIX/ A ' B# AAf BB» AP» BF » D1 
COMMON /DIMFAC/ ADIM* BD1M 

COMMON /GEOHTR/ S » CBAR » SPAN • OUGHT » A1 » A2» A3» A4 
DIMENSION AC<5’4) o BC < 5 1 4 ) 9 ACPER ( 5 f 4 ) t BCPER (5*4) 
DIMENSION ADIM(5*4)fBDIM(5v4) 

DIMENSION AP< St 4 ) » BP(0t 3 ) 

DIMENSION D1 (0t 7) » A( 3 » 4 > » B (3t 4 > f SUM (25 #23) 
LOGICAL* 1 AA(5t4) »BB(3t4) 

IF (ISUB.GE.3) PRINT 2001 
FORMAT < * SUBROUTINE CRAMER') 


C**t*tt*t****t*t*» NORMALLY THE APR10R1 CONTRIBUTION TO HESSIAN 


C***************** IS SUBTRACTED FOR THIS COMPUTATION BUT THIS 
C********t*t**»*«t ROUTINE ASSUMES NO APRXORI OPTIONS ARE BEING 
C****t*ttt«******t USED AND HENSE THERE ARE NO CONTRIBUTIONS 
C*t*ttStt»****tt*t SET DIMENSIONS OF BOUND MATRICES 
AC < 5 1 1 ) « MX 


ACPER < 5 # 1 ) • MX 
AC < 5 » 2 ) « MX 

ACPER ( 5 f 2 ) ■ MX 
BC ( 5 1 1 > ■ MX 

BCPER < 5 » 1 )* MX 
BC ( 5 » 2 ) « MU 

BCPER <3 1 2 > « MU 

C***************** OBTAIN DIAGONAL ELEMENTS Or INVERSE 
CALL DI AGIN ( SUM ) 

C**tt*t**tt»t***** COMPUTE BOUNDS 

UTS - 0. 

DO I I-19M2 

IF (Dl(l9l><NE*0.) WTS - UTS 4 1* 

1 CONTINUE 

rflfPC m PPPQllM/UTfi 

IF ( ISUB.GE.3) PRINT 10. ERRSUM. COEFF • WTS 
10 FORMAT < * ERRSUM • '.F12.4.' COEFF ■ '.F12.4*' WTS • '.F12.4) 
L "0 
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0034 

0035 

0036 

0037 

0039 

0040 

0041 

0042 

0043 

0044 

0046 

0047 

0048 

0049 
0051 


0052 

0053 

0054 

0055 

0056 
0056 

0059 

0060 
0061 
0062 
0064 
C065 


0066 

0067 

0068 

0070 

0071 

0073 

0074 

0075 

0076 

0077 

0078 
0080 

0081 

0083 

0084 

0085 

0086 

0087 

0088 
0089 


00 2 I * 1 * MX 
DO 3 J«1*MU 
DC < I * J >» 0. 

IF < * NOT • BB ( I * J > > GO 70 3 
L » LM 

DC ( I # J ) • SORT ( ABS ( SUM ( L * L > > 9C0EFF ) 

3 CONTINUE 

DO 4 J*1 * NX 
AC ( I f J ) * 0* 

IF < • NOT • AA ( I * J ) ) GO TO 4 

1 ■ L+l 

AC ( I * J >• SORT ( ABB ( SUM < L * L > ) BCOEFF > 

4 CONTINUE 

IF ( AA( 1*4)) L-L+l 
2 CONTINUE 


C***t*t*«»t«*t***t» NON* P I MENS I ON AL I ZE STABILITY AND CONTROL DERIVATIVES 
C*t»*t«**t*t*t**tt* AND COMPUTE BOUNDS AS A PERCENTAGE OF DERIVATIVES 


DO 50 I-l.MX 
DO 60 J* 1 * MX 

AC ( 1 * J ) *AC (I*J)/ADIM< I * J > 

ACPER(I*J>»0. 

IF <A(1*J)«NE»0») ACPER ( I * J >"AC< i * J >/A( I * J) *100. 
60 CONTINUE 

DO 70 J»1*MU 

DC<I *J)»BC< l# J)/BDIM<I * J) 

BCPERUf J)*0. 

IF (B(I*J)#NE«0») BCPERdt J)-BC(I* J) /B ( I * J > *100 . 
70 CONTINUE 
50 CONTINUE 

C****************** PRINT OUT CRAMER RAO BOUNDS 

100 FORMAT < 10X » ' DIMENSION '*13*' BY '*I3> 

101 FORMAT (10X*5(1PE12«4* ' (' 0PF10.3*') ')> 

IF < OUGHT » NE . 0 • ) PRINT 6 

6 FORMAT ( /* 10X* ' NON- DIMENSIONAL CAC3 MATRIX*'* 

1 ' (PERCENTAGE OF DERIVATIVE) ' > 

IF < OUGHT • EQ * 0 * ) PRINT 66 
66 FORMAT ( / » tOX* ' DIMENSIONAL CAC3 MATRIX*'* 

1 ' (PERCENTAGE OF DERIVATIVE > * ) 

r*RINT lOOt MXt MX 
DC 80 I»1 f MX 

PRINT 101 * < ( ACC I * J) * ACPER ( I*J))*J*1*NX) 

80 CONTINUE 

IF ( OUGHT • NE • 0 • > PRINT 7 

7 FORMATC/t lOXf 'NON-DIMENSIONAL CBC3 MATRIX* ' * 

1 ' (PERCENTAGE OF DERIVATIVE > ' > 

IF ( OUGHT . EQ .0 ♦ ) PRINT 77 
77 FORMAT ( /* 10X* ' DIMENSIONAL CBC3 MATRIX* ' * 

1 ' (PERCENTAGE OF DERIVATIVE) ' ) 

PRINT 100* MX * MU 
DO 90 I»1 *MX 

PRINT 101* ( (BC(I*J)*BCPER(I*J))*J»1*MU) 

90 CONTINUE 
RETURN 
END 


C - 3 
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Subroutine DIAGIN 

Description: This subroutine calculates the diagonal elements 

of the inverse of a symmetric matrix. These values are used in the 
calculation of tb° Craraer-IWo bounds. 

Listing: 



FORTRAN IV V02.5-2 Sun 1?-J«n-S2 00*41:36 RAGE 001 

0001 SUBROUTINE DIAOIN(A) 

C 

C - - - 

C THIS SUBROUTINE F INI'S THE DIAGONAL ELENENTS OF THE 

C INVERSE OF A SYMMETRIC hATRIX* C A3 . 

C ------------- - - - 

C 

0002 COHHON /8UBMRT/ ISUb 

0003 DIHENSION A<25.25) 

0004 IF (ISUD.GE.3) FRINT 2001 

0006 2001 FORMAT < ' SUBROUTINE DIAGIN') 

c S 

c J 


C**** ****** ******** PERFORM MATRIX MANIPULATIONS 

0007 CALL REDUCE (A) 

0008 N * A < 25 » 1 > 

0009 NM1 ■ N-l 

0010 DO 90 1*1 t NM1 

0011 A( I t I > * 1*/A(lfl) 

0012 IP1 • I + l 

0013 DO 90 J-IPlfN 

0014 90 A < I » I > * A(1»I)4A(JdI>**2/A<J«J) 

0015 A(NfN) • 1 • /A( N f N > 

0016 RETURN 

0017 END 


\ 

t 
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A. 8) MINC TIME HISTORY PLOITINC (HARD COPY) 


Description: The HPLOT program is the executive for th< hard 

copy plotting routine. This program reads the measured and predicted 
time histories and calls either the LPLOT or DPLOT routines to plot 
longitudinal or lateral-directional cases, respectively. 

Listing: 


RT-ll LINK V06. 

01C 

Load ha# 

Sat 27-F«b-82 05108117 


HPLOT • 

SAV 

Tit 1*1 

H f LOT 

Id#ot 1 

F0»V02 




Section 

Addr 

Si*:# 

C *ob#l 

V#lu# 

Global 

Viilut 

Global 

Valov 

• ABS • 

000000 

001000 

(RU* I 

fODLt AD8t 

OVR ) 







•USRSU 

0*0000 

•RF2A1 

000000 

• VIR 

000000 




•NLCHN 

000006 

•HRDUR 

000006 

•8Y8V* 

000012 




♦ WAS I Z 

000152 

•LRECL 

000210 



•OHAND 

001000 

000106 

<RU»I 

rOBL f REL ' 

CON) 







• OVRH 

001002 

OaREPT 

001024 

04D0NE 

001036 




• 0DF1 

001102 

• 0DF2 

001104 



•OTABL 

001106 

000034 

(RWtb 

tODL » REL 9 

OVR ) 




OTStI 

001142 

024374 

( RW » I 

tLCL'RELt 

CON) 







**0TSI 

001 142 

AINT 

001142 

• INTR 

001160 




•C VTFD 

001244 

•CVTFI 

001244 

•CVTCB 

001260 




♦CVTCI 

001260 

•CVTDD 

001260 

•CVTDI 

001260 




CIC* 

001272 

C I D4 

001272 

CLC* 

001272 




CLD* 

001272 

• DI 

001272 

CIF» 

001302 




CLF* 

001302 

• RI 

001302 

ciLa 

001410 




CL I $ 

001414 

•CVTIF 

001416 

•CVTIC 

001 4 31' 




•CVTID 

001432 

CCI* 

001444 

coxa 

001444 




*IC 

001444 

• ID 

001444 

CFl% 

001460 




HR 

001460 

RC I • 

001544 

Gcoa 

002560 




FCO* 

002566 

eco* 

002572 

Dcoa 

002600 




ADFtlS 

003522 

•ADDF 

003530 

ADFaSS 

003542 




•ADR 

003542 

ADFaPS 

003546 

ADFaMS 

003552 




SUFfIS 

003566 

• SURF 

003574 

suFass 

003606 




•SDR 

003606 

8UF*PS 

003612 

SUF*MS 

003616 




DIF4PS 

003632 

dif*ns 

003636 

DIFaiS 

003650 




• DIVF 

003656 

DIFaSS 

003670 

• DVR 

003670 




NUF*PS 

003674 

huf*hs 

003700 

HUFaiS 

003712 




•MULF 

003720 

HUFaSS 

003732 

• HLR 

003732 




•OTI 

003764 

••on 

003766 

•SETOP 

004204 




• •SET 

005750 

cos 

006244 

SIN 

006300 




• INI T X 

&06636 

ADS 

006754 

•CLOSE 

006772 




OCM 

007550 

icia 

007556 

•ECI 

007572 




OCOI 

007752 

icoa 

007760 

♦DUMPL 

010156 




ENC* 

010304 

• ENC 

010310 

DEC* 

010316 




• DEC 

010322 

END» 

010506 

ERR* 

010520 




• END 

010532 

• ERR 

0105F0 

•OPNER 

010572 




•CHKER 

010630 

•XOEXI 

010654 

•EOL 

010722 




EOL • 

010724 

•ERRTD 

011040 

• ERRS 

011145 




•FCHNL 

014706 

• F10 

015550 

•*FIO 

015554 




•GETFI 

016720 

•GETRE 

016756 

•TTYIN 

017032 




IFR* 

017166 

• IFR 

017172 

• ♦IFR 

017176 




IFR** 

017230 

IFU* 

017252 

• IFU 

017256 




• •IFU 

017262 

XFuaa 

017320 

ilu* 

017370 




• I LU 

017374 

tvs* 

017514 

• TVS 

017516 




••OPCL 

020330 

•••ERR 

020442 

•••DIG 

020464 




•OSTHI 

020566 

•OSTH 

020572 

•PUTRE 

021722 




IRR* 

022230 

• IRR 

022234 

IRU* 

022260 




• IRU 

022264 

•GETIN 

022640 

♦ SET IN 

022676 




PEF* 

023004 

• DEF 

023010 

•PUTBL 

023104 
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•GETBL 

023314 •EOFXU 

023500 

•E0F2 

023514 




SAVRGt 

023534 THRDt 

023712 

8AVR40 

023714 




• 6TP8 

024000 STPt 

024006 

46TP 

024006 




F004 

024012 tEXIT 

024032 

•0T18 

024156 




♦ •OTIS 

024160 XUR4 

024300 

♦ I UR 

024304 




IUUf 

02* 450 tlUU 

024454 

TVLt 

025270 




• TVL 

025270 TVFt 

025276 

♦ TVF 

025276 




TVOt 

025304 • TVD 

025304 

TVOt 

025312 




♦ TWO 

025312 T VPt 

025320 

• TVP 

025320 




T V I ♦ 

025326 tTVI 

025326 

• WAIT 

025462 




• VP I NT 

025524 




OTSIP 

025536 

000054 

(RUrDr 

GBLrRELrflVR) 




SYS tt 

025612 

004502 

(RU.I.LCL.REL.CON) 







IB»ERH 

025612 IBtROU 

026572 

XP4INI 

027034 




IBtUAT 

027042 IBtUNI 

027074 

IDtPRX 

027454 




IB*SEC 

027476 XD4LSN 

027542 

XBRECV 

030262 




I BARCV 

030272 XBSEND 

030640 

IDA8ND 

030650 




IBSEOI 

030662 XDtTLK 

031132 

XBUNL 

031500 




ib»unl 

031554 XBUNT 

031632 

XB4UNT 

031706 




IB*ERR 

031764 XGETC 

032162 

6TRPAD 

032234 

USERtI 

032314 

000000 

( RU » X » 

LCL rREl.rCON) 




•CODE 

032314 

020176 

<RVr It 

LCLrREl.tCON) 







MOTSC 

032314 PSC 

036312 

PCLR 

036356 




SCL 

036502 PEN 

037340 

PLT 

037356 




IPLT 

040206 LBL 

041012 

C8XZ 

041362 




CPLT 

042732 XAX 

043074 

YAX 

046320 




INTGET 

051636 




OTSfO 

052512 

001036 

(RUtlt 

LCL r REL r CON ) 







♦♦OTSO 

052512 • OPEN 

032512 



SYStO 

053550 

000000 

( RU r X r 

LCLrRELrCON) 




♦DATAP 

053550 

004732 

<RUr Dr 

LCL r REL r CON ) 




OTSftO 

060502 

000052 

< RU r X* r 

LCLrRELrCON) 







NHCLN* 

060506 




OTSfS 

060554 

000004 

(RUrDr 

LCLrRELrCON) 







♦AOTS 

060554 




BYStS 

060560 

000206 

(RU.D.LCL.REL.CON) 





IB*1ST 060560 IBSDEV 060606 *SYSLD 060762 
•LOCK 060764 *CRASH 060765 


• DATA 060766 032406 
USER*D 113374 000000 
.»***. 113374 000000 
ADORES 113374 000002 
XYSCLP 113376 000020 
SCALES 113416 000020 
PLOT 113436 000020 
ID. ERR 113456 000024 
ID. DR 113502 000026 
IDCSR 113530 000004 
ID.L8N 113534 000010 
IDLBN 113544 000042 
ID.TLK 113606 000010 
IDTRM 113616 000014 
IDTLK 113632 000006 
Beatient siz» * 113640 


(RU.D.LCL.REL.CON) 

< RU . D . LCL . REL . CON > 
(RU.D.GDL.REL.OVR > 
( RU . D . GPL . REL . OVR > 
( RU . D . ODL . REL . OVR > 
( RU . D . DDL . REL . OVR > 
(RU.D.GBL.REL.OVR) 
(RU.I.OBL.REl.OVR) 
(RU. I .ODL. REL. OVR > 
(RU.D.GDL.tr.L.OVR) 
(RU. I .ODL. REL .OUR > 
( RU . D . ODL . REL . OVR > 
( RU . I . ODL . REL . OVR ) 

< RU . D . ODL . REL . OVR > 
(RU.D.GBL.REL.OVR) 

■ 19408. words 


Over lev 

region 

000001 

0TS4I 

113642 

0000O0 

SYStI 

113642 

000000 

USERtX 

113642 

ooooco 

•CODE 

113642 

003652 

OTStO 

117514 

000000 

SYS*0 

117514 

000000 

•DATAP 

117514 

003376 

OTStD 

123112 

000000 

OTS»S 

123112 

000000 

SYSIS 

123112 

000000 

• DATA 

123112 

000302 

USERtD 

123414 

000000 

Se*»ent 

else « 

007552 


Seflnent 000001 
(RU. I .LCL. REL. CON) 
(RU. I. LCL. REL. CON) 
(RU. I .LCL *REL. CON > 
vRU. I. LCL. REL. CON) 
LP .OT 8 113642 
(RU. I. LCL. REL. CON) 
(Rl. I. LCL. REL. CON) 
(RU'D. LCL. REL. CON) 
(RU.D.LCL.REL.CON) 
(RU*.). LCL. REL .CON) 
(RU.I.LCL.REL.CON) 
(RU.D LCL.REL.CON’ 
(RU.D.LCL.REL.CON) 
■ 1973. word* 
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Ovorl iv 

r oi ion 

000001 

0*StI 

113642 

000000 

SYStI 

113642 

000000 

USER! I 

113642 

000000 

• CODE 

113642 

004234 

OTBtO 

120076 

000000 

SY840 

120076 

000000 

•DATAP 

120076 

003544 

OTStD 

123642 

000000 

0TS4S 

123642 

000000 

SYStS 

123642 

000000 

• DATA 

123642 

000322 

USERID 

124164 

000000 

Sosaiont 

s izo - 

010322 


Baaaant 000002 
(RU.lfLCLfRELfCON) 

< RU » I * LCL 9 REL t CON ) 

< RU 1 1 9 L CL f REL t CON ) 
<RUf I 9 L CL f REL 9 CON > 

DPLOT Q 1X3642 
(RWt IfLCttRELtCON) 
<RU« X » LCL » REL # CON ) 
<RU 9 D 9LCL « REL f CON ) 
<RUf DfLCL fREL fCON ) 

< RUf D. LCL t REL t CON ) 
< RU t Of LCL 9 REL t CON) 
(RUf Of LCL f REL f CON ) 
( RU * D f LCL f REL f CON ) 
2153. words 


T nn»f #r address « 0323149 High limit m 124162 • 21561. words 


FORTRAN IV V02.5-2 Sot 27-Fob-S? 05106*00 


PAGE 001 


0001 


0002 

00C3 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 

001A 

0019 

0020 
0021 
0022 
0024 

0026 

0027 

0028 
0029 
0031 

0033 

0034 

0035 

0036 

0037 

0038 


0039 

0040 

0041 

0042 


PROGRAM HPLOT 

C • • • # PROGRAH TO PRODUCE HARD COPY PLOTS OF LONGITUDINAL 
C.... AND LATERAL -DIRECTIONAL STATE TIHE HISTORIES 
DIMENSION Z(7f200) 9 U< 2 9 200) fZP(7«200) 

LOGICAL % 1 LONG 9 LA7R 9 EXTRA 9 MORE 
BYTE ANS fNAME ( 15 > 

DATA LONG 9 LATR t EXTRA 9 MORE /4* .FALSE • / 

DATA TIME /O./ 

DATA NAME(IS) /O/ 

100 CONTINUE 

C. . . . ASK FOR SAMPLE PER SECOND DATA 
TYPE 101 

101 FORMAT ( ' t ' 9 10X9 ' Input tha integral # of sea for tho tost dot c3 
ACCEPT 102 9 ISPS 

102 FORMAT (1110) 

TIMINC ■ FLOAT ( 200/ ISPS ) 

DELT » 1 . /(FLOAT ( ISPS) ) 

C.". ASK FOR PLOTTER SPEED 
TYPE 103 

103 FORMAT <'*' 910 X 9 ' Inrut tho plotter greed in cm/ soc <1-25)1 ') 
ACCEPT 102f ISPD 

C • • • • ASK IF LONG AUTO-SEQUENCE 
TYPE 1 

1 FORMAT! '• ' 9 lOXf 'Loniitudionl euto-seooenceT <Y or N) ') 

ACCEPT 2 9 ANS 

2 FORMAT < 1A1 ) 

IF < ANS .EG * ' Y ' ) LONG ■ .TRUE. 

IF (LONG) GC TO 3 
C..«. ASK IF LATR AUTO-SEOUENCE 
TYPE 4 

4 FORMAT < ' 9 lOXf ' Lateral -di rational outo-soouonco? <Y or N) ') 
ACCEPT 2 9 ANS 

IF ( ANS • EO • ' Y ' ) LATR - .TRUE. 

IF ( .NOT . LATR) GO T0 S 100 
C . . 1 . OPEN INPUT DATA FILES 

3 CONTINUE 
TYPE 5 

5 FORMAT < ' t ' 9 10X 9 ' Entor tho aeasured dots filo naeel ') 

ACCEPT 6f <NAME<I)9l«l9l4) 

6 FORMAT < 1 4A1 ) 

OPEN < UNI T* 1 9 NAME-NAME 9 TYPE- ' OLD ' 9 ACCESS- ' SEQUENTIAL ' 9 
. READONLY 9 BUFFERCOUNT-1 9 FORM- ' UNFORMATTED ' ) 

C.... CHECK FOR EXTRA DATA 
TYPE 8 

8 FORMAT < ' t ' 9 lOXf 'Doos this filo contain extra data? <Y or N) ') 
ACCEPT 2 9 ANS 

IF (ANS.EG.'Y') EXTRA - .TRUE. 


' ) 
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0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 
0056 

0059 

0060 
0061 
0062 

0064 

0066 

0066 

0070 

0072 

->073 

0074 

0075 

0077 

0078 

0079 
0061 
0062 
0083 

0085 

0086 
0087 
0068 

0089 

0090 

0092 

0093 

0094 

0095 

0096 
0098 


0100 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
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C.... CLEAR OUT OLD DATA FILE NAME 
DO 10 I»1 t 14 
NAME < I ) • ' ' 

10 CONTINUE 
TYPE 7 

7 FORMAT ( * • ' » 10X # 'Entar tha predicted data fila nasal ') 

ACCEPT 6 * < NAME (1)»I«1»14) 

OPEN < UN I T * 2 # NAME “NAME # T YPE ■ ' OLD ' # ACCESS* ' SEQUENT 1 AL ' ’ 

. READONLY » DUFFERCOUNT* 1 1 FORM* 'UNFORMATTED' ) 

25 CONTINUE 

C. . . . INITIALIZE ARRAYS 
DO 26 1 1*1 #200 
DO 27 I J* 1 » 7 
Z(IJiII) *- 1 # E 10 
ZP<IJ»XI> • 0. 

27 CONTINUE 

U(hID * 0, 

U ( 2 # 1 1 ) - 0. 

26 CONTINUE 

C...* READ DATA INTO ARRAYS 
DO 1000 J*1 » 200 
JEND * J 

IF < LONG ) READ (1»END*2000> Z ( 4 1 J ) # Z (1 # J > . Z < 7 » J> • Z< 6# J ) »U( 1 * J) # 

• A»A#A#A#A#A 

IF (LONG. AND. EXTRA) READ < 1 .END-2000) Z < 2. J) . Z< 3. J) .2 (5. J) . 

• A. A. A 
IF (LONG) U(2.J) • 0. 

IF (LATR) READ U.END-2000) A. A. A.A.A.Z ( 4 . J) »Z< I . J) . 

. Z<7.J).Z(2.J>.U(1.J).U<2*J> 

IF (LATR. AND. EXTRA) READ (I. END-2000) A.A.A.ZI3. J) > 

. Z(S.J)»Z(A»J> 

1000 CONTINUE 

C.... SET MORE EQUAL TO TRUE 
HORE - .TRUE. 

2000 CONTINUE 

C.... IF T - 0. THEN SET THE INITIAL CONDITIONS 
IF (TIKE.NE.O. ) 00 TO 1988 
DO 1999 J-1.7 

ZF(J.l) - ( Z < J * 1 > *Z( J. 2) )/2. 

IF (ZF(J.1).LT.-1.E9> ZP(J.l) - 0.0 
ZP ( J # 2 > * ZP<J#1> s 
1999 CONTINUE 

IF (JEND.GT.200) JEND * 200 
DO 3001 J*3 # JEND 

READ ( 2 #END*2002 > (ZP( IA# J) # IA*1 #7 ) 

3001 CONTINUE 

GO TO 2002 
1986 CONTINUE 

IF ( JEND. GT. 200) JEND - 200 
DO 2001 J-ltJEND 

READ < 2 # END*2002 ) ( ZP< I A # J ) # I A*1 # 7 ) 

2001 CONTINUE 

2002 CONTINUE 
C.... PLOT DATA 

IF (LONG ) CALL LPLOT (Z» ZP#U» TIME # TIM INC# DELT # XSPD) 

IF (LATR) CALL DPLOT ( Z # ZP #U# T INE » TIMXNC » DELT » I 8 PD) 

C # # 9 # IF MORE IS • TRUE . DISPLAY CHANGE PAPER ME8SAGE 
C * # # # AND GET READY FOR MORE DATA 
IF (.NOT .MORE) GO TO 3535 
TYPE 2525 

2525 FORMAT ( '#' » 10X» 'MORE DATA ON FILE! (Contlnu# whan raadv)') 
ACCEPT 2 • ANS 

C.9.9 RESET HORE DATA FLAG 
MORE * .FALSE. 

C...9 INCREMENT THE TIME COUNTER BY TIMINC 
TIME - TIMEiT IMINC 
GO TO 25 
3535 CONTINUE 
STOP 
END 
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Description: The LPLOT subroutine plots the longitudinal time 

history traces. 


Listing: 


FORTRAN XV V02.5-2 Sat 2?-F»b-82 04140110 


FACE 001 


000 1 

0002 

0003 

0004 

0005 

0006 
000 ? 

oooe 

0009 

0010 

00H 

0012 

0013 

0015 

0016 
0017 

ooie 

0019 

0021 

0022 

0023 


0024 

0025 

0026 
0026 
0030 
0032 
0034 
0036 
0038 
0040 

0042 

0043 

0044 


0045 

0046 


SUBROUTINE LPLOT < 2 » ZP *U * T IHEO t T IMINC > PELT t U>D ) 

C...4 SUBROUTINE TO DO HARD COPY PLOTS LONGITUDINAL INPUT 
COMMON /ADDRES/ INSTf; 

DIMENSION Z < 7 t 200 > * ZP < 7 * 200 > • U ( 2 1 200 ) 

REAL LOGAIN ( 9 ) 

BYTE ANS r ME3SAG < 6 ) 

DATA LOGAIN /57 . 3 • l . 00 *57 • 3 * 5/ . 3t . 3* 1 .00* 1 . 00*57 . 3 t 0 . 00/ 
DATA MESSAG / ' V ' # ' 8 ' * ' 0 ' . ' 0 ' * ' • ?)/ 

C. • » * DEFINE TIC SIZE 

TIC « TIMINC/10. 

C. . . . SET UP PLOTTER 
CALL PSC <S> 

CALL PCLR 

C.... ENCODE SPEED FOR OUTPUT TO PLOTTER 
ENCODE <2*1001 » MESS AGO) > ISPD 
1001 FORMAT < I 2 > 

C.,.. CHANGE ENCODED BLANKS BACK TO ZEROS 
IF (ME8SAG( 3) « EG • ' # ) MCSSAGC 3 )• ' 0 ' 

C.4.. SEND SPEED TO PLOTTER < ASSUMED AT ADDRESS 5) 

CALL IBSEND <MESSA0#5*5> 

CALL PEN 
1PEND ■ 200 

C.... FIND END OF CONTROL INPUT DATA 
DO 101 1C* 1 • 200 

IF <U(1*201-IC>.NE.0. > GO TO 102 
IPEND * 200-IC 

101 CONTINUE 

C * # • * LEAVE LOOP EARLY IPEND POINTS TO THE LAST DATA POINT 

102 CONTINUE 

C • • • • LONGITUDINAL 
C 1. PITCH RATE 

C 2. AIRSPEED 

C 3* ANGLE OF ATTACK 

C 4. FITCH ATTITUDE 

C 5. PITCH RATE ACCEL. 

C 6. LONGITUDINAL ACCEL. 

C 7. NORMAL ACCEL. 

C 8. ELEVATOR PSN. 

C 9. * » 4 (BLANK) 

C..«. LONGITUDINAL AXES AND LABELS 
DO 500 KT»1 *8 

C...« SET LINE TYPE TO CONTINUOUS LINES 
CALL IBSEND <'LTI'*-l*5> 

IF(KT.EQ.l) GO TO 601 
IF ( KT . EO • 2 ) 00 TO 602 
IF (KT .E0.3 ) GO TO 603 
IF <KT «EQ. 4) 00 TO 604 
IF ( KT .EQ .5) 60 TO 605 
IF ( KT » EO . 6 ) GO TO 606 
IF (KT #EG»7) GO TO 607 
IF(KT.EQ.8> GO TO 608 
601 CONTINUE 

CALL IBSEND ('IP 2000*5640*9500*66401 ' *-l * INSTR) 

CALL XAX< 10.*4.*0»f2.*10. * TIMED* TIC *5. t-1 • » 

• 'TIME IN SECONDS ') 

CALL YAXC10. *4. *0. *0. *4.0*-20.0* 10. *2* *-l • * 

. '0 IN DEG/SEC ') 

GO TO 640 
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004? 

0048 

0049 

0030 

0051 

0032 

0053 

0054 


0055 

0056 
0037 

0058 

0059 

0060 


0061 

0062 

0063 

0064 

0065 

0066 
0C67 
0068 


0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 
0070 

0079 

0080 
0061 
0062 

0063 

0064 

0065 

0066 

0087 

0066 

0069 

0091 

0092 
0094 

0096 

0097 

0096 

0100 

0101 

0102 


602 CONTINUE 

CALL IBSEND ( 'IP 2000 1 4440 • 9500 * 54401 ' #-I # IN6TR) 

CALL XAX( 10* #4* *0* #2. * 10. » TINEO# TIC# 5. #-1 . # 

• 'TINE IN BECONBS ') 

CALL YAX(10.#4.#0.#0.#4.0#-!0.0#5.#2.#-1.« 

• 'U IN FT/SEC ') 

00 TO 640 

603 CONTINUE 

CALL IBSEND ('IP 2000 # 3240 » 9500 # 4240 1 '#-l#INBTR> 

CALL XAX< 10. # 4. #0. #2. t 10. # T I HEO # T IC • 5 . #-l . • 

. TINE IN SECONDS ' ) 

CALL YAX< 10. #4.#0.#0.#4.0#-10.0#5.#2.#-1.# 

. 'ALPHA IN DF3 ') 

00 TO 640 

604 CONTINUE 

CALL IBSEND ('IP 2000# 2040 #9500# 3040! ' # -1 # INBTR ) 

CALL XAX( 10. #4, #0. #2. • 10. # T IHEO# TIC # 5. #-l . # 

. 'TINE IN SECONDS ') 

CALL YAX< 10. #4. #0. #0* #4.0#*10.0#5.#2.»“1. » 

. 'THA IN DEO ') 

GO TO 640 

605 CONTINUE 
TYPE 752 

752 FORNATUOX# 'INSERT NEW PAPER FOR PLOTS! (cr wh«n finished)') 
ACCEPT ie0#ANS 
100 FORNAT(Al) 

CALL IBSEND (IP 2000# 5640# 9500# 66401 '#- 1 t INSTR ) 

CALL XAX( 10. #4. #0. #2. #10* » TXHEO# TIC #5. t-1.# 

. 'TINE IN SECONDS ') 

CALL YAX< 10. #4. #0. #0. #4.0#-50«0#25. #2. #-l. # 

. 'QDOT IN DE0/SM2 ') 

00 TO 640 

606 CONTINUE 

CALL IBSEND ('IP 2000# 4440 #9500# 54401 ' * -1 • INSTR > 

CALL XAX( 10. #4. #0.»2. #10. #TXNEO# TIC #5. # -1 • # 

. 'TINE IN SECONDS ') 

CALL YAX( 10. #4. #0. #0. #4.0»-0.20# .10#2. #-l . # 

• 'AX IN G ' ) 

GO TO 440 

607 CONTINUE 

CALL IBSEND ('IP 2000# 3240 #9500 #4240 1 ' #-l # INSTR) 

CALL XAX< 10. #4. #0. #2. #10. # TINEO# T IC #5 . #-l • # 

. 'TINE IN SECONDS ') 

CALL YAX(10» #4. #0»#0»#4.0#~2.00#0.5#2» »~1. # 

. ' A2 IN G ') 

GO TO 640 
606 CONTINUE 

CALL IBSEND ('IP 2000 #2040 #9500 #3040 1 ' »-l t XN6TR ) 

CALL XAX(10.»4. #0.»2.f 10*#TXNE0#TIC#5.9-1.# 

• 'TINE IN SECONDS ') 

CALL VAX( 10. #4. »0. #0.#4*0#-10.0f5.#2.#-l.» 

• 'DE IN DEG ' > 

640 CONTINUE 

C.... PLOT DATA 

TINE ■ TINEO 

C.... SET LINE TYPE TO CONTINUOUS LINES 
CALL IBSEND ('LTI'#-1»5> 

DO 503 I A»1 # IPEND 

C.... CHECK TO SEE IF CHANNEL IS HEASURED! IF NOT DON'T Pl.OT 
IF (Z(KT#IA).LT.-1»E9) 00 TO 503 
TINE « TINE9DELT 

IF (KT.NE.0) CALL PLT ( TINE #LOOAIN(XT >*Z (KT. IA) #-2> 

IF (KT.EQ.8) CALL PLT ( TINE #L0GAIN< KT ) *U( 1 » XA ) # -2 > 

503 CONTINUE 
CALL PEN 

C.... IF CONTROL TYPE PLOT GO TO BOTTON OF DO LOOP 
IF (KT.E0.8' 00 TO 500 
TINE * TINEO 

C.... SET LINE TY f E TO DASHED LINES 
CALL IBSEND( 'LT2#2!'#-1#5> 

DO 504 IA-1» IPEND 
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0103 


TIME - TIME 4 BELT 

0104 


CALL PLT ( TIME *LOOAIN( KT 

0105 

504 

CONTINUE 

0106 


CALL PEN 

0107 

500 

CONTINUE 

0106 


RETURN 

0109 


END 


Subrout ine DPLOT 

Description: The DPLOT subroutine plots the lateral-directional 

time history traces. 

Listing: 


FORTRAN IV V02.5-2 Sit 27-F«b-62 04141100 


PAGE 001 


0001 

0002 

0003 

0004 
0009 
0006 
0007 

0006 

0009 

0010 

0011 


SUBROUTINE DPLOT < Z • ZP* Ut TIMEO* TIHINC* DELT * I8PD > 

C.... SUBROUTINE TO DO HARD COPY PLOTS LATERAL-DIRECTIONAL 
COMMON /ADDRES/ INSTR 
DIMENSION Z<7.200>tZP(7*200>*U(2»200> 

REAL LDOAINt 9 ) 

BYTE ANStMESSAO * 6 ) 

DATA LDQAIN /57 . 3*57 . 3 t57 * 3 1 57 . 3# 57 . 3*97 .3t 1 *00* 57*3# 57 * 3/ 
DATA MES8A0 /'V' i'8'*'0' * '0' * ' I ' *0/ 

C.... DEFINE TIC SIZE 

TIC ■ TIMINC/10. 

C. . . . SET UP BLOTTER 
CALL PSC $5) 

CALL PCLR 

C.... ENCODE SPEED FOR OUTPUT TO PLOTTER 
ENCODE (2*1001 « HESS AGO) ) ISPD 


0)12 

0013 

0015 

0016 
0017 

0016 

0019 

0021 

0022 

0023 

0024 

0025 


0026 

0027 


1001 FORMAT (12) 

C.... CHANGE ENCODED BLANKS BACK TO ZEROS 
IF ( MESSAGC 3 ) • EO * ' ') MES8A0< 3 >■ ' 0 ' 

C.... SEND SPEED TO PLOTTER (ASSUMED AT ADDRESS - 5> 

CALL IBSEND (MESSAG*5*5> 

CALL PEN 
1PEND * 200 

C.... FIND END OF CONTROL INPUT DATA 
DO 101 !C*1 *200 

IF (U(1*201-IC>.NE.0.> GO TO 102 
IPEND • 200- I C 

101 CONTINUE 

C.... LEAVE LOOP EARLY IPEND POINTS TO THE LAST DATA POINT 

102 CONTINUE 

752 FORMAT ( 10X* 'INSERT NEW PAPER FOR PLOTS! (er wh»n fini»h»d>'> 
160 FORMAT ( A1 > 

C.... LATERAL DIRECTIONAL 
C 1* ROLL RATE 

C 2. YAW RATE 

C 3 • SIDESLIP ANGLE 

C 4. BANK ANGLE 

C 5 • ROLL RATE ACCEL. 

C 6. YAW RATE ACCEL. 

C 7. LONGITUDINAL ACCEL. 

C 6. AILERON DEFLECTION 

C 9. RUDDER DEFLECTION 

C.... LATERAL DIRECTIONAL AXES AND LABEL'* 

DO 300 KT*1 * 9 

C.... SET LINE TYPE TO CONTINUOUS LINES 
CALL IBSEND ('LTI'*-1*5> 
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002B 

0030 

0032 

0034 

0036 

003C 

0040 

0042 

0044 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 
0067 
0066 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 


0086 

0087 

0088 
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IF 

(KT 

• EO. 

.1) 

00 

TO 

701 

IF 

(KT 

• EO < 

.2) 

00 

TO 

702 

IF 

(KT 

• EO. 

.3) 

GO 

TO 

703 

IF 

(KT 

.EO. 

.4) 

00 

TO 

704 

IF 

(KT 

.EG, 

. 5 > 

00 

TO 

705 

IF 

(KT 

.EO. 

.61 

00 

TO 

706 

IF 

(KT 

• EO. 

.7) 

GO 

TO 

707 

IF 

(KT 

• EO 

>8) 

GO 

TO 

706 

IFIKT 

• EO. 

.9) 

00 

TO 

709 


701 CONTINUE 

CALC IBSEND ( 'IP 2000? 5640? 9500? 6640 1 ' * -1 » JNCTR ) 
CALL XAX( 10. #4. tO. ? 2 . ? 10 • « TINEO? TIC? 5 • ? -1 # * 

. 'TINE IN SECONDS ') 

CALL TAX < 10 • ? 4 • ? 0 • ?Q . ?4.0?-20 .0? 10. ?2. ?-l • ? 

. 'P IN DEO/SEC ') 

00 TO 740 

702 CONTINUE 

CALL IB SEND ('IP 2000 # 4440 # 9500 # 5440 f ' ? X ? INSTR) 
CALL XAX< 10# #4. #0. ?2. #10. t TINEO ? T IC ?5 . t-1 . » 

. 'TINE IN SECONDS ') 

CALL YAXOO. ?4. #0. ?0. ?4.0?-20.0? 10. ?2 . »-l . ? 

. 'R IN DE0/8EC '1 

CO TO 740 

703 CONTINUE 

CALL IBSEND ('IP 2000? 3240? 9500? 4240 I ' 9-1 t INSTR) 
CALL XAX (10* #4 • • 0 • t 2 • #10.#TINE0#TIC#5*#-1. ? 

• 'TINE IN SECONDS ') 

CALL YAX(10#?4.?0.?0.?4.0f-10.0?5i?2*?- , l.? 

• 'DTA IN DEO ') 

00 TO 740 

704 CONTINUE 

CALL IBSEND ('IP 2000? 2040*9500? 30401 ' r-1# INSTR ) 
CALL XAX (10. ?4. #0# ?2# t 10. t TINEO? T!C?5* ?-l* ? 

• 'TINE IN SECONDS ' ) 

CALL YAX( 10*#*).#0*#0.#4.0f-i0*0#5.»2.#-l.# 

• 'PHI IN DEO ') 

00 TO 740 

705 CONTINUE 
TYPE 752 
ACCEPT IBO'ANS 

CALL IBSEND ('IP 2000*5640? 9500? 66401 ' ?-l ? INSTR ) 
CALL XAX( 10. *4. ?0. ?2 < ? 10* ?TINE0?TXC?5. ?-l« ? 

• 'TINE IN SECONDS ') 

CALL YAX(10*?4.?0»?0.?4.0r-50.0?25.?2»?~l*? 

. ' PDOT IN DE0/6SS2 ' ) 

CJ TO 740 

706 CONTINUE 

CALL IBSEND ('IP 2000 *4440? 9500? 5440 I ' t-1 ? INSTR) 
CALL XAX( 10.?4.?0.?2*?l0.?TINE0?TIC?5.?-l*t 
. 'TINE IN SECONDS ') 

CALL YAX(10*?4»?0.?0. ? 4.0? *50.0? 25* ?2. ?-l« ? 

• 'ROOT IN DE0/SSS2 ') 

00 TO 740 

707 CONTINUE 

CALL IBSEND ('IP 2000?3240*9500?4240» ' ?-l ?INSTR) 
CALL XAX( 10.?4.?0.*2.?10. ? TINEO ? T IC ? 5 • ?-l ♦ ? 

. 'TINE IN SECONDS ') 

CALL YAX (10* ?4 ♦ ? 0* ?0* ?4 #0? - . 20 ?0 . 10? 2 . ? -1 . ? 

• 'AY IN G ') 

00 TO 740 

708 CONTINUE 

CALL IBSEND ('IP 2000? 2040*9500? 30401 '? *1 » INSTR > 
CALL XAX< 10? ?4. ?0. ?2. ?10. » TINEO? TIC?5* 

. 'TINE IN SECONDS ') 

CALL YAX(10.?4. ?0. ? 0 . ? 4 . 0? - 10 . 0 ? 5 . ? 2 . ? - 1 • ? 

• 'DA IN DEG ') 

00 TO 740 

709 CONTINUE 
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0089 


CALL ID8CND < 'IP 2000# 840 • 9300* 18401 9 •**!# IN8TR ) 

0090 


CALL XAXtlO.t4.fO. *2. f 10 . f TlttCO f TIC f 3 . f - 1 . t 


• 

' T IHE IN SECONDS * ) 

0091 


CALL YAK <10. #4. #0. 1 0 . # 4 .Of - 10 .Of 3 . # 2 . r * 1 * • 


• 

* DA XN DEO * ) 

0092 

740 

CONTINUE 


C • • * • 

PLOT DATA 

0093 

C • * » * 

TINE r TXHEO 

SET LINE TYPE TO CONTINUOUS LINES 

0094 


CALL IftSEND ('LTI'f-ifS) 

0093 

C . * * * 

DO 803 IA*1 f SPEND 

CHECK TO SEC IF CHANNEL IS HEASUREDf IF NO DON'T PLOT 

0096 


IF (ZtKTf IAl.LT.-i.E9) 00 TO 803 

0096 


TINE ■ TIHE4DELT 

0099 


IF (<KT.NE.6).AND.(KT»NE»9> ) 


• 

CALL f*LT ( TIHEf LDOAINt KT > SZ <KT f IA) t-2> 

0101 


IF (KT.EO.O) CALL PLT < TIHEf LDOAINCKT )*U< 1 f IA) f-2) 

0103 


IF (KT.E0.9) CALL PLT ( TIHEf LDOAINtKT )tU< 2f IA) f-2 > 

0103 

803 

CONTINUE 

0106 

C * » • • 

CALL REN 

IF CONTROL TYRE PLOT 00 TO 80TT0H OF DO LOOP 

0107 


IF ((KT.EO.O)* OR .(KT.E0.9)) 00 TO 300 

0109 

c • * • * 

TINE • TIHEO 

SET LINE TYPE TO DASHED LINES 

0110 


CALL IDBEND('LT2t2l'»-lf5> 

0111 


DO 804 X A»i f IPEND 

0112 


TXHE ■ TIHE4DELT 

0113 


CALL PLT (TIHEfLD0AIN(KT)SZP(KTfIA)f-2> 

0114 

804 

CONTINUE 

0113 


CALL PEN 

0116 

300 

CONTINUE 

0117 


RETURN 

one 


END 
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A. 9) M1NC PLOTTER LIBRARY ROUTINES 

Description: The PLTLIB library ia a library of subroutines 

for performing varii >s hard copy graphics commands on the Hewlett 
Packard 7225B plotter. These routines are all FORTRAN programs, 
and they communicate to the plotter using the IEEE 488 (GPIB) inter- 
face bus. The routines IBSEND and IBRECV are the M1NC routines for 
data output and input, respectively. 

Listing: 

FORTRAN IV V02.5-2 To* 10-Nov-81 01100J56 PAGE 001 

0001 SUBROUTINE PSC (IDO) 

C 10-N0V-B1 

CHMHMMMIHM SUBROUTINE TO SET THE OP-ID BUSS ADPREB6 
CMMMMtHtMHI CODE TO BE USED FOR I/O FOR PLOTTER COMMANDS 

cmtimmmMt and to clear the arrays used for special labels 

0002 COMMON /ADDRES/ IN8TR 

0003 COMMON /XYSCLF/ 8CLP1 • 8CLP? • BCLP3* 8CLP4 

0004 DATA IN8TR /5/ 

0009 DATA SCLP 1 » SCLP2 » BCLP3. BCLP4 /4*0./ 

CMMHMHMtMM BET ADDRESS FOR PLOTTER COMMANDS 
0006 IF ( ( IDD. GT.O) .AND. < 1DD.LT . 31 > > INBTR • IDD 

0006 RETURN 

0009 END 


FORTRAN XV V02.5-2 Tw* 10-Nov-Sl 01103133 PAGE 001 

0001 SUBROUTINE PCLR 

C 10-N0V-B1 

CBOOf SUBROUTINE TO INIT.'ALIZE THE PLOTTER 

TO ITS DEFAULT STATUS (LEAVING PI S P2 UNAFFECTF.D) 

0002 COMMON /ADDRES/ 1N8TR 

0003 BYTE HE8SAG< 10 > 

0004 L0G1CALS1 OK. EOS 

CBO ••••••••♦(.••••• INITIALIZE PLOTTER 

0005 CALL IBBEND (' DFI ' ,-l , INBTR > 

CB0044 ••♦••••••••• CLEAR ERROR IF ANY EXIST 

0006 CALL IBBEND < '0E» ' »-l. INBTR) 

0007 CALL IBRECV (MESSAG. 25. IN8TR> 

OOOS IPTR • 1 

0009 IEND - 10 

0010 1ERR ■ INTGET (MEBBAG. IPTR. IEND.0K.E08> 

OOU IF (IERR.EO.O) RETURN 

0013 TYPE 10. 1ERR 

0014 10 FORMAT ( 10X. 'HP PLOTTER ERROR NUMBER '.13.' OCCURED.'./. 

. lOX.'GEE PAGE 47 OF MANUAL FOR ERROR DEFINATI0N8. ' > 

0015 RETURN 

0016 END 
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FORTRAN IV V02.5-2 Tu« 10-NovBI 01107101 RACE 001 


0001 SUBROUTINE SCI (X1.K2.V1.V2) 

C tO-NOV-ll 

CMIHtmtIHMM SUBROUTINE TO SET THE SCALING POINTS PI AND P2 
CMMMM94MMM4 TO >E USED IN DEFIN1N0 TNE USER SCALE 

0002 CONNON /ADORES/ INSTR 

0003 CONNON /SCALES/ XP1.XP2.YPI.YP2 

0004 CONNON /PLOT / XRATIO. YRATIO. XKNBT . VKNST 

0005 DVTE NESSAG( 23 ) 

0004 LOO I CAL* 1 OK. EOS 

C9S9M994MM4MM READ POSITION OF R1 AND P2 

0007 2525 CONTINUE 

0008 ENC0DE(25.2424.NE88A0< 1 > > ' 

0009 2424 FORNAT ( 1A25 ) 

0010 CALL IDSEND (' OP 1 . INSTR > 

0011 CALL IDRECV (NESS AO. 25. INSTR) 


0012 

IPTR-1 


0013 

IEND-25 


0014 

IP1X ■ 

INTOET ( HE88AG* XPTR * I END » OK » EOS ) 

0015 

IF (.NOT. OK) 

00 TO 2525 

0017 

IF (OK) IPTR 

• IPTR91 

001? 

IP1Y * 

X NTOET ( HESBAOf IPTR f XEND t OK • £08 ) 

0020 

IF < (NOT • OK > 

00 TO 2525 

0022 

XF (OK) IPTR 

• XPTR?1 

0024 

IP2X ■ 

1 NTOET ( M£8BAG» IPTR* IENDvOK »E08 ) 

0025 

XF ( • NOT 4 OK ) 

00 T;> 2525 

0027 

IF (OK) IPTR 

• IPTR41 

0029 

IP2T • 

INTOET (NE88A0. IPTR. 1END. OK. E08) 

0030 

XF (.NOTtOK) 

00 TO 2525 



BET SCALES AND PLOT INFORMATION 

0032 

XNUH • 

FLOAT < IP2X-IP1X > 

0033 

YNUN • 

FLOAT ( IP2Y-IP1 Y > 

0034 

XP1 • 

XI 

0035 

XP2 ■ 

X2 

0036 

YP1 ■ 

Yt 

0037 

YP2 

Y2 

0038 

XRATIO • 

XNUM/(XP2-XP1) 

0039 

YRATXO - 

YNUM/(YP2-YP1) 

0040 

XKN8T ■ 

FLOAT < 1P1X )-XPlt XRATIO 

0041 

YKNST • 

FLOAT <XP1Y)-YP1*YRAT 10 


0042 

0043 

0044 


COtOOOOOOOOOOOOOM SET INPUT UINDON TO DEFAULT LALUE 
CALL IDSEND ( 'IN) ' .-1. INSTR) 

RETURN 

END 


FORTRAN IV V02.5-2 Tu« 10-Nov-Ol 01109142 PAUE 001 

0001 SUBROUTINE "EN 

C 10-N0V-S1 

SUBROUTINE TO RAISE PEN 

0002 CONNON /ADORES/ INSTR 
COOOMOOOOMMOOO* RAISE PEN 

0003 CALL IBBEND( 'PUI '.-l.INSTR) 

0004 RETURN 

0005 END 
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FORTRAN IV V02.3-2 Tu» 10-Mov-81 01116104 RAGE 001 

0001 SUBROUTINE PLT ( XCORD • YCOkD » I > 

C 10-N0V-81 

CMMMMMMMM# SUBROUTINE to PLOT THE USER X.Y COORDINATE 
CMMMMMMMtM SPECIFIED (AFTER CONVERTING TO ABSOLUTE UNITS) 
CMMMMMMMM* UNDER USER PEN CONTROL 

0002 COMMON /ADORES/ INSTR 

0003 COMMON /PLOT / XRATIO. VRAT 10 t XKN8T » YKNST 

0004 BYTE MESSAGES) 

CMMMMMMMM* CHECK WHETHER I IS AN EVEN OR ODD INTEGER 

0005 IE - (l/2>*2 

CMtMHMHMMM IF I > 01 THEN CHANGE PEN BEFORE MOVING 

0006 IF <<I.GT.O>.AND.<!.EO.IE>> CALL 1B6END < ' PD I ' * -1 . INSTR ) 

0008 IF <<I.GT.O).AND.(I.NE.IE>> CALL IBSEND ( ' PU I ' . - 1 . INSTR ) 

CmMMHHMttM PLOT X.Y DATA 

0010 XSCL ■ XC0RD*XRATI0+XKN6T 

0011 V SCL ■ YCORD' , YRAT 10 + YKNST 

0012 IF (XSCL. LT .32767. > GO TO 300 

0014 TYPE 998 

0015 998 FORMAT ( ' X- r Cl NT IS TO LARGE TO PLOT') 

0016 RETURN 

0017 300 CONTINUE 

0016 IF (YSCL.LT. 32767 . > 00 TO SOI 

0020 TYPE 999 

0021 999 FORMAT ( ' V-POINT IS TO LARGE TO PLOT') 

0022 RETURN 

0023 SOI CONTINUE 

0024 IXSCL » XSCL 

0023 IVSCL » YSCL 

0026 ENC0DE(2S« 1000»MESSAG( 1 ) > 'PA t 1 

0027 1000 FORMAT ( 1 A23 ) 

0028 ENCODE ( St 1001 r MESS AG ( 3 > ) IXSCL 

0029 1001 FORMAT ( 15) 

0030 ENCODE (3» 1001* MESS AG (9)) IYSCL 

0031 r.AtL IBSEND ( MESSAO 1 1 4 . INSTR ) 

CtmMtMUMMM IF I < 01 THEN CHANGE PEN AFTER MOVING 
CMMMMMMMM* IF I >■ 01 NO CHANGES ARE MADE HERE 

0032 IF (I.GE.O) RETURN 

0034 IF (I.EO.IE) CALL IBSEND ( ' PD) ' * -1 » INSTR > 

0036 IF (I.NE.IE) CALL IBSEND < 'PU) '»-!» INSTR) 

0038 RETURN 

0039 END 


FORTRAN IV V02.5-2 Tue 10-Nov-Sl 01121136 PAGE 001 

0001 SUBROUTINE IPLT (XINC * YINC* I ) 

C 10-N0V-81 

CMMMMMMMM* SUBROUTINE TO PLOT THE USER DELTA X.Y COORDINATE 
099999*9*99999999* SPECIFIED (AFTER CONVERTING TO ABSOLUTE UNITS) 
099999999999999999 UNDER USER CONTROL OF PEN 

0002 COMMON /ADORES/ INSTR 

0003 COMMON /PLOT / XRATIO. YRATIO.XKNBT .YKNST 

0004 BYTE MESSAO (25) 

CMMMMMMMM* CHECK 'JHETEHR I IS AN EVEN OR ODD INTEGER 

0005 IE ■ <I/2)*2 

099999*99999999999 IF I > 01 THEN CHANGE PEN BEFORE MOVING 

0006 IF ( (I.GT .0) .AND. (I . EG • IE ) ) CALL IBSEND ( 'PD1 ' *-l . INSTR) 

0008 IF ((I. GT.O). AND. (I.NE.IE)) CALL IBSEND ( 'PU1 '. -1 » INSTR > 

C*»Sk****tS*t*«**» PLOT DELTA X.Y DATA 

0010 XSCL - XINCtXRATIO 

0011 YSCL *• YINCkYRATIO 

0012 IF (XSCL. LT. 32767, ) GO TO SOO 
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0014 TYPE 998 

0015 998 FORMAT ( ' X-P01NT 16 TO LARGE TO PLOT') 

0016 RETURN 

0017 500 CONTINUE 

0016 IF < Y8CL.LT. 32707. > GO TO 501 

0020 TYPE 999 

0021 999 FORMAT I ' Y-POINT 18 TO LARGE TO PLOT') 

0022 RETURN 

0023 501 CONTINUE 

0024 IX8CL • XSCL 

0025 1YSCL • VSCL 

0020 ENCODE ! 25* 1 000 » MESS AO ( 1 ) ) 'PR * » 

0027 1000 FORMAT! 1A25) 

0028 ENCODE ! 5* 1001 *ME68AG! 3 > > IX8CL 

0029 1001 FORMAT! IS) 

0030 ENCODE ! 5. 1001 rMESSAG! 9 ) ) IYSCL 

0031 CALL IBSEND < MESSAG* 14 * INSTR ) 

CMHIMIMMIHM IF I < 01 THEN CHANGE PEN AFTER MOVING 
CtMMHMtmMM IF I » 0) NO CHANGES ARE MADE HERE 

0032 IF !!.GE.O> RETURN 

0034 IF (I. EG. IE) CALL IDSEND ! ' PD ) ' » -1 * INSTR > 

0034 IF !I.NE.IE> CALL IDSEND ! 'PUI ' *-l. INSTR) 

0038 RETURN 

0039 END 


FORTRAN IV V02.5-2 To# lO-Nov-81 01123129 PAGE 001 

0001 SUBROUTINE OFS !XINC*VINC> 

C 10-N0V-S1 

CHmiMMHmM SUBROUTINE to OFFSET the ORGIN FROM its present 
COOMM4M******** LOCATION TO A NEU LOCATION BY THE DELTA INCREMENTS 

0002 COMMON /SCALES/ XP1 . XP2 * YP1 . YP2 

C*«*»*****»*»****« ADD INCREMENTS TO SCALES AND CALL SCL ROUTINE 

0003 XI ■ XP1-XINC 

0004 X2 ■ XP2-XINC 

0005 Y 1 ■ YP1-YINC 

0006 Y2 » VP2-YINC 

0007 CALL SCL !X1 *X2*V1 . Y2) 

0008 RETURN 

0009 END 


FORTRAN IV V02.S-2 Tu« 10-Nov-81 01127158 PAGE 001 

0001 SUBROUTINE LBL ! ARRAY) 

C 10-N0V-81 

CMttMIMmHIM SUBROUTINE TO LABEL CHARACTER ARRAYS ON THE 
PLOTTER AT ARBITRARY X*Y LOCATIONS 

0002 COMMON /ADDRES/ INSTR 

0003 BYTE MESSAG I 84 ) * ARRAY ! 80 ) 

0004 DATA MESSAG /B4*' '/ 

C«M*t*M*M*«**M COPY LABEL INTO MESSAG 

0005 DO 20 1*1*80 

0006 MESSAG! 1+2) • AR AY! I) 

0007 20 CONTINUE 

COM************** CHECK LABEL FOR ALL BLANK CHARACTERS 

0008 DO 21 1*1*80 
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0009 IF < ARRAY < I > .NE . ' ' ) GO TO 22 

0011 21 CONTINUE 

CMMMMtMHMM TO GET HERE ALL CHARACTERS HU6T BE BLANK 
CMMMM9MMMM THEREFORE EXIT EARLY 

0012 RETURN 

0013 22 CONTINUE 

PAH STRING TC GET 84 CHARACTERS 

0014 CALL STRPAD < MESSAG • 84 ) 

CM#t*M#«MM##M HOVE LABEL TO FRONT OF ARRAY IF IT IS NOT THERE 

0015 43 CONTINUE 

0016 IF <MESSAG(3> *NE • ' ') GO TO 44 

0018 DO 45 IC»3 f 83 

0019 HE8SAG< 1C > • MESBAG<IC41> 

0020 45 CONTINUE 

0021 HESSAG( 84 > • ' ' 

0022 GO TO 43 

0023 44 CONTINUE 

FIND FIRST NON-BLANK CHARACTER LOOKING FROM THE 
BACK TO THE FRONT (THIS BECOHES THE LAST CHAR) 

0024 ISAVE - 60 

0025 DO 10 1-1*80 ^ 

0026 IF < HESSAG< 83-1 > • EQ * ' ') GO TO 10 

0028 ISAVE • 81-1 

C9»#*M«t4#tt#M»# LEAVE LOOP EARLY SINCE NON-BLANK IS FOUND 

0029 GO TO 13 

0030 10 CONTINUE 

0031 13 CONTINUE 

ADD LABEL INSTRUCTION TO MESSAG 

0032 ENC0DE(2t 1000* MESSAG < l ) ) 'LB' 

0033 1000 FORMAT < 1 A2 ) 

C#*4»«M#M*t*0«t ADD TERMINATION CHARACTER TO LABEL 

0034 MESSAG( ISAVE43) - 3 

0035 ME SB AG < I SAVE 44 ) « 'I' 

0036 ISAVE « ISAVE44 

0037 CALL IBSEND < MESSAG f ISAVE* INSTR) 

0038 RETURN 

0039 END 


FORTRAN IV V02.5-2 Tut lO-Nov-81 01129132 PAGE 001 

0001 SUBROUTINE CSIZ < H * AR * AOR * SL > 

C 1 0-N0V-8 1 

CMOMHIUMHM SUBROUTINE TO SPECIFY THE SIZE AND SHAPE OF CHAR 

0002 COMMON /ADDRES/ INSTR 

0003 LOGICAL* 1 OK*EOS 

0004 BYTE MESSAG ( 25 > 

0005 DATA DGR /57. 29578/ 

CMMMMMM«MM CONVERT ANGLES TO RADIAN UNITS 

0006 AORR * ADR/ DGR 

0007 SLR * SL/DGR 

READ POSITION OF PI AND P2 

0008 2525 CONTINUE 

0009 ENCODE <25* l 000* MESSAG < 1 ) ) ' 

0010 1000 FORMAT ( 1 A25 ) 

0011 CALL IBSEND < ' OP I ' * -1 » INSTR ) 

0012 CALL IBRECV < MESSAG? 25* INSTR > 

0013 IPTR-1 

0014 IEND-25 

0015 IF1X « 1NTGET (MESSAG* IPTR# I END * OK » EOS) 

0016 IF ( • NOT # OK ) 00 TO 2525 

0018 IF < OK ) IPTR * IPTR41 

0020 IP1Y * INTGET < MESSAG * IPTR • I END » OK * EOS > 

0021 IF ( » NOT .OK ) GO TO 2525 


ORfGfNAL PAP'r r-» 

* POOR QUAUrZ 

0023 IF (0K> IPTFt ■ IPTR+1 

0025 IP2X ■ 1NTGET (HESSAG* IPTR * I END* OK* EOS > 

0026 IF (.NOT. OK) 00 TO 2525 

002B IF (OK) IPTR - IPTR+1 

0030 IP2Y • INT(»ET ( HESSAG * IPTR* IEND* CK *EOS ) 

0031 IF (.NOT. OK) OC TO 2525 

CO«»*»*»MMOt'»*«* SET SCALES AND PLOT INFORHATION 

0033 XNUH - FLOA; (IP2X-IP1X) 

0034 YNUH ■ FLOAT (IP2Y-IP1Y) 

CtMIMMimHIH CALCULATE PAPER RATIO 

0035 PR « XNUH/YNOH 

CMMHMMM4MM AS A FUNCTION OF PI t P2 

0036 U • (H/AR)/PR 

0037 IF (W.GT.127.999) U - 127.999 

0039 IF (H.OT. 127.999) H ■ 127.999 

0041 ENCODE (25*1000 * HESS AO (1>> ' 8R * ) 

0042 ENCODE ( 8 * 1001 * HE 88 AO ( 3 > ) U 

0043 1001 FORHAT (F8.3) 

0044 ENCODE (8*1001 * HESSAG ( 12) > H 

0045 CALL IBSEND (HES8A0*20* INSTR) 

CMmMMMHM*! SET ANGLE OF ROTATION 

0046 RISE » 100*SIN(A0RR> 

0047 RUN • 1004C0S ( AORR ) 

0048 ENCODE ( 25* 1000*HESSA0( 1 > > 'DI • I 

0049 ENC0DE(8* 1001 *HESSA0(3) ) RUN 

0050 ENCODE (8* 1001 *HES8A0( 12 ) ) RISE 

0051 CALL IDSEND( ME8SA0* 20* INSTR > 

SET ANGLE OF SLANT 

0052 SLR > SIN(SLR)/C08(SLR) 

0053 ENCODE (25* 1000*HE8SAG( 1 > 3 '6L t 

0054 ENCODE! 8* 1001 *HE88AG( 3> > SLR 

0055 CALL IDSEND ( HE88AG » 1 1 * INSTR ) 

0056 RETURN 

0057 END 


FORTRAN IV V02.5-2 To* 10-Nov-81 01(31121 PAGE 001 

00C1 SUBROUTINE CPLT (CUtCH) 

C 10-N0V-81 

cmmM(»mm< subroutine to hove the pen the nuhber 
OF USER specified character units 

0002 COHHON /ADDRES/ INSTR 

0003 BYTE HESSAG(25> 

ctmtmmMMM call hove routine 

0004 ENCODE (25*1000* HESSAG ( 1 ) ) 'CP * 1 

0005 1000 FORHAT ( 1 A25 > 

0006 ENC0DE(8*1001 * HESSAG! 3 > > CU 

0007 1001 FORHAT (F8.3) 

0008 ENCODE (8*1001 * HESSAG ( 12) > CH 

0009 CALL IBSEND (HESSAG* 20* INSTR) 

0010 RETURN 

0011 END 
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FORTRAN XV V02.S-2 Tu* lO-Nov-81 01133159 RAGE 001 

0001 SUBROUTINE LIN (Xl.X2.Yl.Y2) 

C 10-N0V-81 

COOOOOOOOOOOMOOO* SUBROUTINE TO SET THE UINDOU LIMIT POINTS U1 AND N2 
CMttMMMMtHH IN USER UNITS (PLOTTING OUT OF LIMITS WILL RAISE 
COOOOOOOtOOOOOOOM THE PEN) 

0002 COMMON /ADORES/ INSTR 

0003 COMMON /SCALES/ XP1 ,XP2. YPl . VP2 

0004 COMMON /PLOT / XPATIO * YRAT 10 * XKN6T * VKN8T 

000', BYTE ME8SA0 < 26 > 

CMtHMHMItMM DETERMINE LOCATION OF LIMIT POINTS 

0006 IXU1 - X1SXRATI0+X8CL 

0007 IVU1 • Y1*YRATI0+Y8CL 

0008 I XU2 - X2FXRATI0+XSCL 

0009 IYU2 » Y29YKATI0+XSCL 

C4*M«**M**M**4* INPUT UINDOU LIMITS 

0010 ENC0DE(26»1000, MESSAG! 1 ) > ' IU . . » I' 

0011 1000 FORMAT ( 1 A25 > 

0012 ENCODE (5. 1001 » MESSAG! 3 ) ) IXUt 

0013 1001 FORMAT! IS) 

0014 ENCODE <S» 1001 »ME8SAG<9 > > I^Ul 

0015 ENCODE (S' 1001 , MESSAG ( IS) > IXU2 

0016 ENCODE (S'1001'MESSAG(21>) IYU2 

0017 CALL IBSEND ( MESSAG' 26. INSTR ) 

001G RETURN 

0019 END 


FORTRAN IV V02.5-2 Tu» 10-Nov-Bl 01137117 PAGE 001 

0001 SUBROUTINE DIG ( XCORD . YCORD ) 

C 10-N0V-81 

CMMMtMMMMH SUBROUTINE TO DIGITIZE POINTS ON THE PLOTTER 

0002 COMMON /ADDRES/ INSTR 

0003 COMMON /PLOT / XRATIO. YRATIO. XKNST . YKNST 

0004 BYTE MESSAGES > 

0003 LOGICAL*! OK, EOS 

COOOOM*********** SET PLOTTER FOR DIGITIZING 

0006 CALL IBSEND (' DC) ' ,-l , INSTR ) 

0007 CALL IBSEND ( ' DP I ' , -1 , INSTR ) 

UAIT FOR DIGITIZED POINT 

0008 10 CONTINUE 

0009 CALL IBSEND ( '0S» ' »-l .INSTR) 

0010 ENCODE(2S.1000'MES8AO(1) ) ' 

0011 1000 FORMAT (1A2S) 

0012 CALL IBRECV (HESSAG. 10. INSTR) 

0013 IPTR » 1 

0014 IEND ■ 10 

0015 ISTS » INTGET (MESSAG. IPTR. IEND.OK.EOS) 

0016 IF (.NOT. OK) GO TO 10 

0016 ISTS ■ ISTS/2 

0019 ISTS ■ ISTS/2 

0020 IRMDR « I STS- (ISTS/2) *2 

0021 IF (IRMDR. EO.O) GO TO 10 
COMOOOOM******** READY FOR DIG POINT 

0023 20 CONTINUE 

0024 CALL IBSEND ( ' OD I ' » -1 . INSTR ) 

0025 CALL IBRECV (MESSAG. 14, INSTR) 

0026 CALL IBSEND ( ' DC * ' . -1 . INSTR ) 

0027 IPTR > 1 

0028 IEND - 25 

0029 IXSCL ■ INTGET ( MESSAG . IPTR , IEND, OK .EOS > 

003C IF (.NOT. OK) GO TO 20 
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0032 

I PTR 

1PTR41 

0033 

IYSCL 

INTOET ( NESS AG* I PTR » I END* OK » EOS > 

0034 

IF (.NOT. OK) 

00 TO 20 

0036 

XSCL 

FLOAT ( I XSCL ) 

0037 

YBCL • 

FLOAT (IYSCL) 

003B 

XCORD 

<X6CL-XKNST)/X RATIO 

0039 

YCORB • 

< YBCL-YKNST ) /YRAT 10 

0040 

RETURN 


0041 

END 



FORTRAN IV 


V02.5-2 Tu# lO-Nov-01 01S38149 


PAGE 001 


0001 SUBROUTINE XAX <P1 »P2»P3tP4»P5>P6f P7rPB»P9f XLABEL ) 

C 1 0-N0V-8 1 

SUBROUTINE TO DRAW AN X AXIS AND LABEL IT 
Ct«*MM4*tM«4Mt ROUTINE TAKEN FROM AN HP-9825 ROUTINE 
C4**M##M»#MMM WRITTEN FOR THE CESSNA AIRCRAFT CO. 

0002 COMMON /ADDRES/ INSTR 

0003 COMMON /XYSCLP/ SCLP1 1 SCLP2 1 SCLP3» SCLP4 

0004 BYTE ARRAY < 1 0 > » XL ABEL ( 20 > 


0005 



DATA ARRAY /10*' '/ 


CO 

♦ 0# 


0006 



P15 ■ * 1 0P9 

0007 



Pll ■~.1*P9 

0008 



P 1 6 r. 0 . 

0009 



SCLP1 * P6-P70P3 

0010 



SCLP2 ■ P64(P1-P3)*P7 

0011 



HGHT • 40. /P2 

0012 



CALL CSIZ < HOHT »2.2t0.»0.) 

0013 



CALL SCL <0. tPltO. »P2 > 

0014 



XPLT • P3 

0015 



YPLT ■ P4-P11 

0016 



CALL PLT < XPLT » YPLT # 1 > 

0017 


4 

CONTINUE 

0016 


10 

FORMAT < 1PE9 • 2 ) 

0019 


11 

FORMAT < 1*9 • 0 > 

0020 


12 

FORMAT < 1 F9 . 1 ) 

0021 


13 

FORMAT < 1F9 . 2 ) 

0022 


14 

FORMAT < 1F9 • 3 > 

0023 



ENCODE < 9 » 1 0» ARRAY ( 1 > > P4 + PU.P7 

0024 



IF < ABS < SCLP1 ). LT. 10000. AND. ABS<$CLP2> .LT . 10000) 
. ENCODE (9*11 • ARRAY < 1 > ) P6+P160P? 

0026 



IF < ABS < SCLP1 ) .LT .1000 .AND. ABS < 6CLP2 ) . LT .1000) 
. ENCODE ( 9 • 1 2 1 ARRAY ( 1 > > P6 + P160P7 

0028 



IF < ABS < SCLP 1 ) . LT. 100.AND.ABS(SCLP2) .LT • 100) 
. ENCODE <9*13# ARRAY < 1 ) ) P6+P160P7 

0030 



IF ( ABS ( SCLP1 ) .LT.10.AND.ABS(SCLP2) .LT.10) 
. ENCODE < 9 v 1 4 » ARRAY < 1 ) ) P6+P16AP7 


CO 

000 


0032 


43 

CONTINUE 

0033 



IF ( ARRAY ' 1 ) ♦ NE . ' ') GO TO 44 

0035 



DO 45 IC* 1 f 9 

0036 



ARRAY ( IC > - ARRAY ( IC4 1 ) 

0037 


45 

CONTINUE 

003B 



ARRAY ( 10) ■ ' ' 

0039 



GO TO 43 

0040 


44 

CONTINUE 


CO 

♦♦♦ 


0041 



ISAV ■ 9 

0042 



DO 666 I A* 1 i 9 

0043 



IF ( ARRAY (lO-IA).EQ.' ') GO TO 666 

0045 



ISAV • 10* IA 


CO 

000 
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0046 


00 TO 667 

0047 

666 

CONTINUE 

0046 

667 

CONTINUE 

0049 


P 1 8 ■ ISAV 


CMM< 


0050 


BO 868 JJ*1*9 

0051 


IF <ARRAY< JJ) .EG. '0' ) ARRAY < JJ ) » '0' 

0053 

888 

CONTINUE 

0054 


PI 7 • 0. 

0055 


CALL PEN 

0056 


CU ■-(P18/2.4 .25) 

0057 


CM - • 756P9- # 25 

0058 


CALL CPLT < CU * CH > 

0059 


CALL LBL (ARRAY) 

0060 


CM •-(P18/2.-.25) 

0061 


CH ■ « 25- • ^5*P9 

0062 


CALL CPLT (CUtCH) 

0063 

3 

CONTINUE 

0064 


PI 6 • P1641. 

0065 


P 1 7 • P1741 . 

0066 


IF (P16.LE.PS) CALL IPLT (0..PU.2) 

0066 


IF (P16.LE.PS) CALL IPLT (1..0..2) 

0070 


IF (P16.LE.P5) CALL IPLT (0..P15.2) 

0072 


IF (P17.LT .P8> GO TO 3 

0074 


IF (P16.LE.P5) GO TO 4 


WRITE AXES LABEL 

0076 


DELX «-.5*P5 

0077 


DELY • 0. 

0076 


CALL IPLT ( BELXfBELY • 1 ) 

0079 


BO 5 1*1*20 

0080 


IF (XLABEL(21-I ) .EO. ' ') GO TO 5 

0082 


ISAVE - 21-1 

0063 


GO TO 6 

0084 

5 

CONTINUE 


CMM< 


0085 

6 

CONTINUE 

0066 


P17 • FLOAT < I SAVE ) 

0087 


HGHT * 40 • / S2 

0088 


CALL C8IZ < HOHT » 2 • 2 *0 • * 0 • ) 

0089 


CW »°P17/2. 

0090 


CH • (1 *75*P9-,25) 

0091 


CALL CPLT (CWtCH) 

0092 


CALL LBL (XLABEL) 

0093 


IF ( SCLP1 <LT .8CLP2.AND.SCLP3.lt .SCLP 4 ) 
. CALL SCL(8CLPltSCLP2f8CLP3.SCLP4> 

0095 


RETURN 

0096 


END 


FORTRAN XV 


V02.5-2 To# lO-Nov-81 01J40J56 


RAGE 001 


0001 SUBROUTINE TAX < PI t P2 t P3. P4 . P5»P6.P7 »P8>P9» YLABEL ) 

C 10-N0V-S1 

CHmMttMHMM SUBROUTINE TO DRAW AN Y AXIS AND LABEL IT 
CM*************** ROUTINE TAKEN FROM AN HP-9825 ROUTINE 
C***************** WRITTEN FOR THE CESSNA AIRCRAFT CO. 

0002 COMMON /ADORES/ INSTR 

0003 COMMON /XYSCLP/ SCLP1 .SCLP2»SCLP3»SCLP4 

0004 BYTE ARRAY (10) r YLABEL < 20 ) 

0005 DATA ARRAY /10*' '/ 

C**»*»»*MM«M*M DEFINE AXES 

0006 P10 »-.l*P9 

0007 F14 • • 1*P9 

0006 P16 « 0. 
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0009 



P 1 9 ■ 0 . 


0010 



SCLP3 • P6-P79P4 


0011 



SCLP4 • P.*(P2-P4)»f>7 


001? 



HOMT • 40. /P2 


0013 



CALL C81Z ( HOHT » 2 . 2 *0 . » 0 . > 


0014 



CALL 8CL <0*tPl»0.»F2> 


0015 



XPLT • P3-PI0 


0016 



YPLT ■ P4 


0017 



CALL PLT < XPLT * YPLT » 1 ) 


0016 


4 

CONTINUE 


0019 


10 

FORMAT ( 1PE9 • 2 ) 


0020 


1 1 

FORMAT ( 1 F9 .0 > 


0021 


12 

FORMAT < 1 F9 . 1 ) 


002? 


13 

FORMAT ( 1F9 . 2 ) 


0023 


14 

FORMAT ( 1 F9 • 3 ) 


0024 



ENCODE < 9 1 1 0 » ARRAY ( 1 ) ) P64P169P7 


0025 



IF < ASS < SCLP3 > .LT. 10000. AND. A»8(SCLP4> .LT. 10000) 




. ENCODE (9.11 .ARRAY ( 1 > ) P64P16*P7 


0027 



IF (ABS(SCLP3) .LT ♦ 1000 » AND • ABS( SCLP4 ) »LT* 1000) 




. ENCODE < 9 » 1 2 » ARRAY ( 1 ) > P69P169P7 


0029 



IF < A8S<8CLP3 > . LT . 1O0. AND. ADS ( 8CLP4 > .LT. 100 ) 
. ENCODE (9.13. ARRAY ( 1 ) ) P64P16.P7 


0031 



IF ( ADS< SCLP3 > .LT . 10 • AND > ADS ( SCLP4 ) .LT . 10) 
. ENCODE < 9 » 1 4 » ARRAY ( 1 ) > P6+P169P7 



C( 



ARRAY 

0033 


43 

CONTINUE 


0034 



IF < ARRAY ( 1 ) • N £ • * ') GO TO 44 


0036 



DO 45 I C*1 » 9 


0037 



ARRAY ( I C ) ■ ARRAY < I C + 1 ) 


0038 


45 

CONTINUE 


0039 



ARRAY ( 10 ) • ' ' 


0040 



00 TO 43 


0041 


44 

CONTINUE 



ci 



LABEL 

0042 



I BAY • V 


0043 



DO 666 IA«l'f 


0044 



IF < ARRAY ( 10* I A > • EG • ' ') 00 TO 666 


0046 



ISAY - 10-IA 



c< 

► M# 



004? 



GO TO 667 


0048 


666 

CONTINUE 


0049 


667 

CONTINUE 


0050 



P1B - I SAY 


0051 



IF (P18.07.P19) P19-P18 



Cl 


MIMMUMM CHANGE THE ASCII CHARACTER *0* 

INTO 

0053 



DO 888 JJ»1>9 


0054 



IF (ARRAY(JJ).EO. '0' > ARRAY ( J J ) ■ '0' 


0056 


886 

CONTINUE 


0057 



PI 7 - 0. 


0058 



CALL PEN 


0059 



CU ■ <P9*(P18/2.41 . J-P18/2. > 


0060 



CH *- • 3 


0061 



CALL CPLT (CUtCH) 


0062 



CALL LBL (ARRAY) 


0063 



CU ■-(P1B/2 *+P9*(P18/2 . + 1 . ) ) 


0064 



CH ■ .3 


0065 



CALL CPLT (CUtCH) 


0066 


3 

CONTINUE 


0067 



P 1 6 ■ P16+1. 


0068 



P17 « P1741 . 


0069 



IF (P16.LE.P5) CALL IPLT (P10»0.»2) 


0071 



IF (P16.LE.P5) CALL IPLT (0.»1.»2) 


0073 



IF (P16.LE.P5) CALL IPLT (P14t0.»2> 


0075 



IF (P17.LT. P8) GO TO 3 


0077 



IF (P16.LE.P5) GO TO 4 



Cl 




0079 



DELX ■ 0. 


0060 



DELY • 5tP5 


0081 



CALL IPLT ( DELX# DELY • 1 ) 
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0082 

00 5 

I*ll 

20 

0063 

if (vl*»el(3i-i >.eo. ' '> oo to s 

0085 

I SAVE 


■ 21-1 

0086 

00 TO 

6 


vO07 

S CONTINUE 





• EXIT t OOF EARLY 

0088 

6 CONTINUE 


0069 

P17 


■ FLOAT < I SAVE > 

0090 

CM 


• P9*<P1942. >♦.$ 

0091 

CH 


■ Of 

0092 

CALL 

CPLT 

(CU.CM) 

0093 

MGMT 


• 40. /P2 

0094 

CALL 

CSIZ 

( HGHT » 2 . 2 1 90 • 1 0 • > 

009*'* 

cu 


•-P17/2. 

0096 

CH 


» 0. 

0097 

CAUL 

CPLT 

(CWfCH) 

0098 

CAUL 

LDL 

< YLADEL > 

0099 

IF (8CLP1 

.LT .6CUP2.AND.BCUF3.lt .6CLP4) 


• CAUL 

8CU ( 8CUP1 »8CLP2 » 8CUP3» 8CUP4 > 

Old 

RETURN 


0102 

END 
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A. 10 MINC TIMS HISTORY (CRT GRAPHICS) 


Description: The SPLOT program is the executive for the CRT 

graphics plotting routine. This program reads the measured and 
predicted time histories p nd calls SCPLCP r.o display 200 time points 
of data on the CRT. 


Listing: 


FORTRAN IV 


V02.5-2 Sun 2S' Ftb-62 03118138 


PAGE 001 


0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 
0016 

0018 

0019 

0020 
0021 
0023 

0025 

0026 
0027 
0026 

0029 

0030 


0031 

0032 

0033 

0034 

0036 

0037 
0036 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 


PROORAM SPLOT 

C.... PROGRAM TO PRODUCE SCREEN PLOTS OF LONGITUDINAL 
C.... AND LATERAL-DIRECTIONAL STATE TINE HISTORIES 
COMMON /LABELS/ ARRAY 
DIMENSION Z<7*200> *U(2t200> *ZP<7'200> 

LOGICAL LONG* LATR 'EXTRA 'MORE 
BYTE ARRAY < BO ) * AN S 'NAME ( 1 5 ' 

DATA LONG 'LATR* EXTRA 'MORE /4t .FALSE « / 

DATA TIME /O./ 

DATA NAME<15> /O/ 

100 CONTINUE 

C.... ASK IF LONG AUTO-SEQUENCE 
TYPE 1 

1 FORMAT (' t ' * 10X* ' LONGITUDINAL AUTO SEQUENCE? (Y OR P>'> 

ACCEPT 2 f ANS 

2 FORMAT < 1 A1 > 

IF (ANS.EQ.'Y'J LONG ■ .TRUE. 

IF <LONG ) GO TO 3 
C...« ASK IF LATR AUTO-SEQUENCE 
TYPE 4 

4 FORMAT ( * 10X * 'LATERAL -DIRECTIONAL AUTO SEQUENCE? (Y OR N > ' ) 
ACCEPT 2* ANS 

IF (ANS.EG.'Y') LATR • .TRUE. 

IF ( .NOT. LATR) GO TO 100 
C.... OPEN INPUT DATA FILES 

3 CONTINUE 
TYPE 5 

5 FORMAT < ' • ' * 10X* ' ENTER THE MEASURED DATA FILE NAME: ') 

ACCEPT 6f<NAME<I)'I*l*14) 

6 FORMAT ( 14A1 ) 

OPEN (UNIT-1 *NAHE-NAME'TYPE-'OLD' 'ACCESS*' SEQUENTIAL ' • 

. READONLY * BUFF ERCOUNT -2 * FORM- ' UNFORMATTED ' ) 

C.... CHECK FOR EXTRA DATA 
TYPE 8 S 

B FORMAT ( ' • ' * 10X* ' DOES THE FILE CONTAIN EXTRA DATA? (Y OR N>') 
ACCEPT 2* ANS 

IF (ANS.EQ.'Y'J EXTRA - .TRUE. 

C.... CLEAR OUT OLD DATA FILE NAME 
DO 10 1-1*14 
NAME ( 1 ) - ' ' 

10 CONTINUE 
TYPE 7 

7 FORMAT ( ' * ' » 10X * ' ENTER THE PREDICTED DATA FILE NAME! ') 

ACCEPT 6 9 ( NAME (I)*I-l'l4) 

OPEN (UN IT -2 'NAME -NAME* TYPE- 'OLD' 'ACCESS- 4 SEQUENTIAL ' * 

. READONLY 'BUFFERCOUNT-2* FORM-' UNFORMATTED ' ) 

25 CONTINUE 
C.... EMPTY ARRAYS 

DO 26 11-1*200 
DO 27 IJ-1'7 
Z(IJ'II) - 0. 

ZP(IJ'II) » 0. 

27 CONTINUE 

U(1'I1> - 0. 
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0052 

0053 

0054 

0056 

0056 

0060 

0062 

0064 

0065 

0066 

0067 

0069 

0070 

0071 

0072 
CC73 

0074 

0075 

0076 

0077 


0078 

0080 

0081 

0082 

0083 


0084 

0085 
0066 
0087 

0086 


U < 2 » 1 1 ) • 0. 

26 CONTINUE 

C..,. READ DATA INTO ARRAYS 
DO 1000 J« 1 1 200 
JEND • J 

IF (LONG) READ < 1 tEND-: ,)00 > 2<4t J) #Z( 1 • J> »Z(7» J> *2(6 !>»U(I»J>» 

• AH6 » AH7 » AH 8 1 AH9 » AHlOt AH1 1 

IF ( LONG t AND .EXTRA ) READ <1»END»2000) 2 ( 2 . J > » 2 < 3 » J > r Z ( 5 • J ) • 

• AN 15 » AH 1 6 1 AH 1 7 
IF < LONG ) U ( 2 t J ) • 0* 

IF (LATE) READ (ltEND-2000) AH1 » AH2 » AH3 » AH4 t AH5» Z (4*J)»Z(1»J>» 

• Z(7»J>»Z(2*J)*U(l»J)tU(2fJ> 

IF < LATR • AND » EXTRA ) READ (1»END>2000> AH1 2 • AH13 • AH14 1 Z < 3* J ) * 

• 7.(5»J)vZ(6»J> 

1000 CONTINUE 

C.... GET HORE EQUAL TO TRUE 
HORE - .TRUE. 

2000 CONTINUE 

C.... SET THE INITIAL CONDITIONS ON STATES 
IF ( TIHE • NE . 0 • > GO TO 1988 
DO 1999 J»1 » 7 

ZP(J#1) • (Z(J»l)^Z(Ji2))/2. 

ZF’ ( J * 2 > - <Z< Jtl )4Z( J»2) )/2. 

1999 CONTINUE 
1988 CONTINUE 

DO 2001 J*3# JENO-1 

READ < 2 ) < ZP < 1 A# J > » 2 A*1 » 7 ) 

2001 CONTINUE 
C. . . . PLOT DATA 

CALL 8CPL0T(Z» ZPtUt LONOt LATR > 

C.... IF HORE IS TRUE DISPLAY CHANGE PAPER 
C.... AND GET READY FOR HORE DATA 
IF ( • NOT • HORE ) GO TO 3535 
TYPE 2525 

2525 F ORHAT ( ' t ' » 10X » ' HORE DATA ON FILE t (CONTINUE UHEN READY)') 
ACCEPT 2 # ANS 

C.... RESET HORE DATA FLAG 
HORE « .FALSE • 

C.... INCREHENT THE TIHE COUNTER DY 20. SEC 
TIHE « TIHE4-20. 

GO TO 25 
3535 CONTINUE 
STOP 
END 


Subrout ine SCPLOT 

Description: The SCPLOT subroutine plots either a set of 

longitudinal or lateral-directional time history traces. 

Listing: 


FORTRAN IV V02.5-2 Sun 28-F#b-82 03U9:ii PAGE 001 

0001 SUDROUTINE SCPLOT ( Z t ZP • U t LONG * LATR > 

0002 COHHON /STATUS/ ISTATU6) 

0003 COHHON /FIVEA/ DATA*SAIN 

0004 D1HENSI0N XARRAY(512) 

0005 DIHENS 1 ON GA I N < 9 > t GAIN 1 < 9 ) # 0AIN2 < 9 ) 
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0014 

0016 

0017 

0018 
001 ? 
0020 
0022 

0023 

0024 
0023 

0026 

0027 

0028 
0029 
0031 

0033 

0034 

0035 

0036 

0037 

0038 

0039 


0040 

0041 
0043 
0045 
0047 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 
0058 
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0 1 HE NS l ON Z ( 7 . 20© > * ZP C 7 • 2 0© > • U < 2 • 200 > 

LOO 1 CAL LONGtLMf 
me AMS 

C.... THE REQUIRED SUBROUTINES ARE • 

C.... PL0T55* INI Y AND ORAPH 
DATA 1STAT /16t©/ 

DATA 0AIN1 /114. 6*114. 6*143. 2*47.7*28. 6*28. 6*100. ,143.2.143.2/ 
DA f A 0AXN2 /114.6f 2.5*143. 2*95.5*28.6* 100. *25. * 143.2*0./ 

C 

1 ARRAY ( 1 > - 0 
1 ARRAY ( 3 > ■ 0 
C.... LONGITUDINAL 

C 1. PITCH RATE - 25 DEO/SEC 

C 2. AIRSPEED - 20 FT/SEC 

C 3. ANOLE OF ATTACK - 20 DEO 

C 4. PITCH ATTITUDE - 30 DEO 

C 5. PITCH RATE ACCEL. - 100 DE0/8ECSS2 
C 6. LONGITUDINAL ACCEL. - .5 0 

C 7. NORHAL ACCEL . - 20 

C 8. ELEVATOR PSN. - 20 DEG 

C 9. Sit (BLANK) 

C.... LATERAL DIRECTIONAL 
C 1. ROLL RATE - 25 DEG/SEC 

C 2. YAU RATE - -6 DEG/SEC 

C 3. SIDESLIP ANOLE - 20 DEG 

C 4. DANK ANGLE - 60 DEG 

C 3. ROLL RATE ACCEL. - 100 DEG/SECSS2 

C 6. YAU RATE ACCEL. - 100 DE6/SECSS2 

C 7. LONGITUDINAL ACCEt. - .5 G 

C 8. AILERON DEFLECTION * 20 DEG 

C 9. RUDDER DEFLECTION - 20 DEG 

IF (LONG) GO TO 411 
DO 421 1-1*9 
GAIN ( I ) - GA1N1 ( I ) 

421 CONTINUE 
411 CONTINUE 

IF (LATR ) 00 TO 402 
DO 422 1-1*9 
GAIN ( 1 ) - QAXN2 ( 1 ) 

422 CONTINUE 
402 CONTINUE 

C*... BET UP DO LOOP 
DO 2525 LL- 1 » 3 
KT - LLS2-1 
KB - LL*2 

IF (KD.EQ.10) KB - 9 
IF (LONG. AND. LL. EG .5) GO TO 2325 
C.... CLEAR CRT AND FORW GRID FOR PLOTTING 
CALL INXT 

CALL PLOT 53(2* 1 424-32 » 64 4 128 * * 1ST AT ) 

DO 110 K- 1 * 235*50 

CALL PL0T55(4*1*K-1*ISTAT> 

110 CONTINUE 

CALL PLOT 55 <4*i*229*I$TAT) 

CALL PL0T55 (5*0*1* 1ST AT) 

C _ - 

C.... FORM THE HEASURED AND ESTIHATED RESPONSES 
DO 130 1-1*200 

IFCKT.LT. S) X ARRAY ( 2t I > * Z (KT * I ) AGAIN (KT >4150 
XFCKT.GE.8) I ARRAY ( 24 1 ) - U<KT-7*I) SGAXN ( KT >4150 
IFCKB.LT. 8) I ARRAY (2*1*1 ) • Z ( KB* I ) *GAXN< KB ) 450 
IF (KB.GE.8) I ARRAY ( 2*1 - 1 ) - U (KB-7 * I ) SGAIN ( KB > 450 
130 CONTINUE 

CALL PL0T55C9 • 20*2*XSTAT> 

CALL PL0T55< 1 2* * ' * * t TINE HISTORIES * * * '*ISTAT> 

CALL PL0T55C 9*50* 4»ISTAT) 

CALL PL0T55C 12 * * ' HEASURED DATA ' » 16TAT ) 

CALL GRAPH(400* IARRAY 5 

DO 140 1-1*200 

IF (KT.0E.8) GO TO 131 

IARRAY ( 261 ) - ZP ( KT * I ) SGAIN ( KT ) 41 50 
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0059 

131 

CONTINUE 

0060 


1 r ' KB «GC *8 > GO TO 132 

0063 


1 ARRAY ( ?» I - 1 > • ZMKl). I >*04IN<KI)>*30 

0063 

132 

continue 

0064 

140 

CONTINUE 

0065 


CALL PL0T55(9s50p4s 10TAT) 

0066 


CAUL PL0T35< 12* > ' ESTIMATE!) DATA ' • ISTAT > 

0067 


CALL ORAPH( 400* I ARRAY > 

0066 

L 

CALL PL0T55(9#50f4»XBTAT> 

0069 


CALL PL0TSSU2#*' CR_UMEN READY '.ISTAT> 

0070 

L 

IF ( W ATR> GO TO 699 

0072 


KFLAGS - 0 


C 1 1 • • 

LONGITUDINAL LABELS 

0073 


CALL PLOT 35(9* 50 #6#IST4T) 

0074 


IF(KT*EO. 1 > GO TO 601 

0076 


IF(KT.FQ.2> GO TO 602 

0070 


1 F < KT • EO • 3 > GO TO 603 

0060 


IF(KT.E0.4> 00 TO 604 

0082 


IF(KT.EQ.S) GO TO 605 

0084 


IF ( KT • EQ • 6 > GO TO 606 

0086 


IF < KT • EO * 7 ) 00 TO 607 

0088 


IF ( KT * EO • 8 > GO TO 608 

0090 

610 

CONTINUE 

0091 


KFLAG1 - 1 

0092 


CALL FL0T55(9s50«16#I8TAT) 

0093 


lF(KD.EO.l) GO TO 601 

0095 


IF ( KB • EO * 2 > GO TO 602 

0097 


IF ( KB *EQ* 3 > GO TO 603 

0099 


IF ( KB • EQ • 4 ) GO TO 604 

0101 


IF (KB*EQ* 5) GO TO 605 

0103 


IF ( KB » EO • 6 > GO TO 606 

0105 


IMKb.EQ.7> 00 TO 607 

0107 


IF < KB « EO • 8 ) GO TO 606 

0109 

601 

CALL PL0T55(l2tt' 0 4/- 25 DEG/SEC '»ISTAT> 

0110 


00 TO 640 

0111 

602 

CALL PL0T55( 12 » s ' V 4/- 20 FEET/8EC ' » 1ST AT ) 

0112 


00 TO 640 

0113 

603 

CALL PL0T55 <12##' ALPHA 4/- 20 DEG 'sISTAT) 

0114 


00 TO 640 

0115 

604 

CALL PL0T55<12ts' THETA 4/- 30 DEC ' * ISTAT > 

0116 


GO TO 640 

0117 

605 

Call PL0 T 55( 12? » ' 0 HOT 4/- 100 DEG/8ECM2 ' * ISTAT > 

one 


GO TO 640 

0119 

606 

CALL PL0T55(X2»t' AX 4/- .5 G '»X6TAT> 

0120 


GO TO 640 

0121 

607 

CALL PL0T55( 12t » ' AN ♦ /- 2 0 ' t ISTAT ) 

0122 


GO TO 640 

0123 

608 

CALL PL0T55< 12 • i ' DE 4/- 20 DEG ' • X ST AT ) 

0124 

640 

CONTINUE 

0125 


IF (KFLAG1 *E0.0> GO Tt 610 


Ct 1 1 » 

GO TO END OF LOOP 

0127 


IF (LONG) GO TO 751 

0129 

699 

CONTINUE 


C • • » • 

LATERAL DIRECTIONAL LABELS 

0130 


KFLA02 - 0 

0131 


CALL PL0T55<9f50.6t ISTAT) 

0132 


IF (KT « EG* 1 > 00 TO 701 

0134 


IF (KT »E0«2) GO TO 702 

0136 


IF ( KT • EQ • 3 ) GO TO 703 

0138 


IF ( KT • EO • 4 ) GO TO 704 

0140 


1 F ( KT • EQ « 5 ) GO TO 705 

0142 


IF ( KT • EQ « 6 ) GO TO 706 

0144 


IF (KT . EQ * 7 ) 00 TO 707 

0146 


IF ( KT . EG • 8 > GO TO 70ft 

0146 


IF ( KT * EG • 9 ) GO TO 709 

0150 

710 

CONTINUE 

0151 


KFLAG2 * 1 

0152 


CALL PL0T55(9#50tl6»ISTAT) 

0153 


IF (KB «EQ • 1 > GO TO 701 
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015% 1F(KB.E0.2> 00 TO 702 

0157 IF<KD.E0.3> 00 TO 703 

0159 IF(KB.EQ.4> 00 TO 704 

01*1 IMKI.EO.S) 00 TO 705 

0163 IF<K».E0.6> 00 TO 70* 


f 0145 


1F<K6*E0'7> 00 TO 

707 


0167 


XMKft.EO.S) 00 TO 

7oe 


1 016V 


1MK6.EQ.9) 00 TO 

709 


1 0171 

701 

CALL PL0T551 12 * t ' 

P 4/- 25 DEG/GEC 

' # ISTAT ) 

0172 


00 TO 740 



0173 

702 

CALL PL0T55 ( 1 2 » t ' 

R 4/- 25 DEO/SEC 

' 1 18TAT > 

* 0174 


00 TO 740 



! 0175 

703 

CALL PL0T55( 12 • » ' 

8CTA 4 /• 20 DEG 

' • 1ST AT > 

i 0174 


GO TO 740 



0177 

704 

CALL PL0T55< 12 i * ' 

PHI 4/ * 60 DEG 

ISTAT) 

0176 


00 TO 740 



017V 

705 

CALL PL0T35( 1 2 • • ' 

P DOT 4/- 100 DEG/6ECM2 

' t ISTAT) 

0180 


00 TO 740 



0161 

706 

CALL PL0T55( 12 » ♦ ' 

R DOT 4 / • 100 DEG/6EC842 

' t ISTAT ) 

0182 


00 TO 740 



0163 

707 

CALL PL0T55C 12 » f ' 

AY 4/- .5 G 

' » ISTAT ) 

0164 


GO TO 740 



0165 

706 

CALL PL0T55< 12* » ' 

DA 4/- 20 TEG 

't ISTAT) 

0186 


00 TO 740 



0187 

709 

CALL PL0T55<12f»' 

DR 4/- 20 DEG 

' dISTAT) 

0188 

740 

CONTINUE 



0169 


1F(KFLAG2.E0.0) 00 TO 710 


01?i 

751 

CONTINUE 



0192 


ACCEPT 160. ANS 



0193 

160 

FORMAT (At 1 



0194 


CALL INIT 




C • * * * 

BOTTOM OF LOOP 



0195 

2525 

CONTINUE 




0196 CALL PL0T55<2.512. 1 42+4*32464. 1ST AT ) 

0197 CALL PL0T55<0*-1 *0*I8TAT) 

0190 RETURN 

0199 END 


Subroutine INIT 

Deocription: The INIT subrov'lne initializes the common 

block array /STATUS/ ISTAT(16) for use in the PLOT55 graphics 
routines. 

Listing: 


I 


FORTRAN IV V02.5-2 Sun 26-F*b~62 03119:57 FADE 001 

0001 SUBROUTINE IS IT 

0002 C0HH0N/8TATUS/I8TAT < 16) 

0003 DATA ISTAT / 16(9/ 

0004 CALL PL0T55U3. 72. .ISTAT) 

0005 CALL PL0TS5(13>74»' ISTAT) 

0006 CALL FL0T55(2«14512t t ISTAT) 

0007 RETURN 

OOOS END 
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Subroutine GRAPH 


' ' . r 



Description: The GRAPH subroutine plots the actual data to 

the V T 105 CRT. It uses a MING software package called PLOT55. 

Listing: 


FORTRAN IV V02.5-2 Sun 28-f»to“87 03S20J39 PAO E 001 

0001 SU&ROUTINE 0RARH<Nf 1 ARRAY > 

0002 COhMON/ST ATUS/ 1STA" < 16 > 

0003 l PENSION I ARRAY (312) 

0004 NUMHER»ISTAT<8>/8 

0005 CALL PL0T55(7»0»0»ISTAT) 

0006 CALL PL0T53<8*512#0i I6TAT > 

0007 CALL PL0T55< 2» 1 + (NUMBER* 1 )*2# ( NUMBER + 1 ) *1 Of 1STAT ) 

0008 CALL PL0T55< 3» -N» I ARRAY » ISTAT > 

0009 CALL F’L0T55< 1. 1-NUH8ER, , ISTAT) 

0010 CALL PL0T55<9tl0< 1.ISTAT) 

0C11 ENd 
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A. 11) M1NC DATA TRANSFER (MINC TO MAINFRAME) 

Description: This routine allows crude use of the MINC computer 

as a smart terminal. It is used to transfer files to a mainframe 
computer . 

Listing: 


FORTRAN IV V02.5-2 Sun 03-J«n-82 11150148 


page 001 


0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 
0009 


0010 

0011 


0012 

0013 

0014 
0016 
0010 

0019 

0020 
0021 
0022 

0023 

0024 
0023 
0027 
0029 


0030 

0031 


PROGRAM RS232 
C 

C.... MINC PROGRAM TO TALK TO THE HONEYWELL COMPUTER 
C...» WRITTEN BY ROBERT CLARKE 
C 

C.... SET UP INTEGER ARRAY FOR DEFINING COMMUNICATION USING SLUO 
DIMENSION IADDRC4) 

C.... DIMENSION CHARACTER ARRAYS FOR INPUT AND OUTPUT 

BYTE NAME ( 15 ) » SAVE (30000 > f LINE (132) ' CHARIN' CHAROT 
LOGICAL*! RECEI V' DISKOT 
C.... SET RECEIVE FLAG TO FALSE 
DATA RECEI V /.FALSE./ 

C... . SET DISK OUTPUT FLAG TO FALSE 
DATA DISKOT /.FALSE./ 

C. .. . INITIALIZE ARRAYS 

DATA SAVE /30000*0/ 

DATA NAME /15*0/ 

DATA LINE /132*0/ 

C.... START PROGRAM 

C.... THIS PROGRAM READS FROM SLUO 

C.... (300 BAUD* EVEN PARITY' 7 DATA t 2 ST UP ) 

C.... SET TT FOR SPECIAL READING 

C...« SET BITS 12f I3t AND 14 OF JSW 

C.... (NO LOCAL ECHO AND LOWER CASE INABLED) 

CALL IPOKEB (*45'112> 

C.... SET BIT 6 OF JSW (NO WAIT FOR TT ~NPUT) 

CALL IPOKEB ( # 44'64> 

C.... TERMINAL IS NOW SET UP TO READ IN ABNORMAL FORMAT 
C..«. THE PROGRAM CAN GO OUT AND LOOK FOR A CHARACTER WITHOUT 
C..., GOING INTO A WAIT STATE IF ONE IS UNAVAILABLE 
C..«. ATTACH THE INPUT PORT AND CHECK FOR ERRORS 

4 CONTINUE 

IERR • HTATCH(l) 

IF (IERR.NE.O) TYPE 998' IERR 
IF (IERR.NE.O) GO TO 4 

998 FORMAT ('ERROR IN SETTING UP PORT! ERROR NUMBER - # tI2> 

5 CONTINUE 
IADDR(l) • *50100 
I ADDR ( 2 ) ■ 0 

I ADDR ( 3 ) - 0 
I ADDR( 4 ) - 0 

IERR - MTSETd'lADDR(l)) 

IF (IERR.NE.O) TYPE 998' IERR 
IF (IERR.NE.O) GO TO 5 

TYPE *'' TERMINAL IS SET UP WITH NO ERRORS ' 

C.... RS232 PORT IS SET UP (SLUO) WITH CORRECT BAUD RATE AND 
C.... DATA COMMUNICATION PARAMETERS 

C.... THE PoRT IS ALSO SET UP TO SAMPLE WITHOUT GOING INTO 
C.... WAIT STATES IF NO DATA HAS BEEN SENT 
C.... TOP OF LOOP FOR DATA COMMUNICATION 
2525 CONTINUE 

C.... LOOK FOR KEYBOARD INPUT 
I VAL - ITTINR( > 


0032 IF (XVAL.LT.O) GO TO 100 
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0034 

0035 
0037 
0039 

0041 

0042 

0044 

0045 


0047 

0049 

005i 

0053 

0054 
0056 


0058 

0060 

0061 

0062 

0063 


0064 

0065 

0066 

0067 

0068 
0069 

0071 

0072 


0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 


0093 


0094 


CHAR IN • IVAL 

C.,.. CHECK FOR SPECInl ACTION KEYS :~RS RECEIVE INPUT DATA) 

IF (IVAL.E0.1B) RECEIV ■ .TRUE. 

IF (IVAL.EQ.18) I SAVE * 1 
IF (IVAL.E0.18) TYPE 2001 

2001 FORMAT ( ' 't/t'SMM HONEYWELL INPUT DUFFER OPENED *t***'t/. 

. INPUT FILE NAME FOR HONEYWELL DATA FILES ') 

IF UVAL.EQ.1B) ACCEPT 2002t (NAME < I ) t I«i * 14 > 

2002 FORMAT ( 1 4A 1 ) 

C.... OPEN OUTPUT FILE 

IF (IVAL.E0.18) OPEN ( UNI T* 1 t NAME-NAME . TYPE* ' NEW ' p 
. ACCESS" ' SEQUENTIAL ' t FORM* 'FORMATTED ' > 

. DUFFERCOUNT *2* DISPOSE* ' SAVE ' * RECORDS I ZE* 132 ) 

IF (IVAL.EQ.18) 00 TO 100 
C.... (~DS MINC DISK DUMP OF HONEYWELL DATA) 

IF (IVAL.E0.4) RECEIV * .FALSE. 

IF < I VAL • EG • 4 ) TYPE 2003 

2003 FORMAT ( ' ',/,'***** HONEYWELL DATA DUFFER OUTPUT TO DISK **»**') 
IF (IVAL.E0.4) DISKOT - .TRUE. 

IF (IVAL.EQ.4) GO TO 100 
C.... (~TS MINC FILE OUTPUT TO HONEYWELL) 

IF (IVAL.NE.20) 60 TO 2050 
TYPE 2004 

2004 FORMAT < ' ',/» ***** MINC DATA FILE TO HONEYWELL *****' t/t 

. ' « ' t ' INPUT FILE NAME FOR MINC DATA FILES ') 

ACCEPT 2002 » (NAME ( I ) » 1*1 » 1 4 ) 

OPEN ( UNI T*2 > NAME "NAME » TYPE* ' OLD ' r 
. ACCESS* ' SEOUEN r I AL ' ? FORM* 'FORMAT TED ' » 

. DUFFERCOUNT-1 f READONLY ) 

2007 CONTINUE 

C.... READ LINE FROM INPUT FILE 

READ ( 2 * 2005 f END* 2009 ) ( LINE ( I > # 1*1 1 132 ) 

2005 FORMAT ( 1 32A1 ) 

C. . . . FIND END OF LINE 
DO 344 IU *1 » 1 32 
ILEN * 133* IU 

IF ( LINE ( 133* IU) . NE . ' ') 00 TO 345 

344 CONTINUE 

345 CONTINUE 

C.... SEND LINE TO HONEYWELL 
C.... SEND CR/LF TO HONEYWELL FIRST 

I - ITTOUR(IO) 

I * MTOUT(l.lO) 

I - ITT0URU3) 

I * MTOUT ( 1 t 13) 

C»... SEND 15 BLANKS 
DO 66 IU*1 t 15 
DO 67 1U2*1 r 200 
U • ABS(FL0AT(IU2>> 

67 CONTINUE 

I * Ml OUT (1.32) 

66 CONTINUE 

DO 2006 J*1 » ILEN 
C.... BUILD WAIT LOOP 

DO 2020 I WA I T* 1 » 200 
W - ADS ( FLOAT ( I ) ) 

2020 CONTINUE 

CHARIN * L INE< J > 

I * ITTOUR(CHARIN) 

I • MTOUT ( 1 t CHAR IN) 

2006 CONTINUE 
60 TO 2007 

2009 CONTINUE 

C.*.. END OF FILE IS FOUND 
C. . . . CLOSE FILE 

CLOSE ( UN I T*2 ) 

C.... SEND LAST LINE OF INPUT TO HONEYWELL 
C.... SEND CR/LF TO HONEYWELL FIRST 
I - I TTOUR (10) 
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0095 

0096 

0097 
0096 

0099 

0100 
0101 
010 ? 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

Oil? 

0114 

0116 


0118 

0120 

0122 

0124 

0126 

0127 

0120 

0130 

0132 

0134 

0136 

0137 
0136 

0139 

0140 

0141 

0142 
0144 

0146 

0147 
0149 

0149 

0150 

0151 

0152 

0154 

0155 

0156 


'-F fkCu 


/ , ■ t ■ , . . 

< I I 


1 • HTOUT ( 1 f 10) 

1 ■ ITT OUR (13> 

1 • HTOUT ( 1 • 1 3 > 

DO 2010 J*1»I 
DO 2021 I WA I T» 1 • 200 
U - APS ( FLOAT < X ) ) 

2021 CONTINUE 

CM Aft IN • LINE(J) 

I * ITT OUR ( CHAN IN) 

I • HTOUT < 1 1 CHAN IN ) 

2010 CONTINUE 

00 TO 100 
2050 CONTINUE 

C. . . . SEND CHARACTER 

1 ■ ITT OUR < CHAR I N ) 

I • HTOUT ( 1 t CHAR IN ) 

C. . . . NO KEYBOARD INPUT 
100 CONTINUE 

C.... CHECK FOR HONEYWELL INPUT 

I - HT IN ( 1 9 CHAROT t 1 ) 

C.... REHOVE LF FROH HONEYWELL INPUT 
IF (CHAROT. E0.10) l ■ -1 

C..., IF THERE WAS A CHARACTER WRITE IT TO THE TERHINAL 
IF (I.EO.O) 1 - I TTOUR ( CHAROT ) 

IF (CHAROT. EO. 13) 1 • ITTOUR(IO) 

C.... CHECK FOR SAVING HONEYWELL INPUT OR WRITING TO DISK 
C. . . . CHECK FOR DISK SAVE 

IF (DISKOT) 60 TO 200 
C.... CKECK FOR INPUT SAVING 

IF <<I«NE.O).OR»<.NOT. RECE I V ) ) GO TO 2525 
IF (CHAROT. GT. 126) GO TO 2525 

IF ((CHAROT.LT. 7. OR. CHAROT.GT. 13). AND. (CHAROT. LT. 32)) GO TO 2525 
SAVE ( I SAVE ) • CHAROT 
ISAVE • I9AVE41 

IF (CHAROT. EO. 13) SAVE(ISAVE) - 10 
IF (CHAROT. EQ. 13) ISAVE - I SAVE 4 1 
IF (ISAVE. GT. 30000) DISKOT - .TRUE. 

IF ( .NOT. DISKOT) GO TO 2525 

200 CONTINUE 

C.... RESET DISK OUTPUT FLAG 
DISKOT ■ .FALSE. 

C. . . . FIND LAST OF DATA 
I LAST - LEN(SAVE) 

C.... INITIALIZE ILFQLD (POINTER TO LAST CR/LF 
ILFOLD ■ 1 
203 CONTINUE 

DO 201 I « I LFOLD. ILAST 
C.... FIND NEXT lF (END OF LINE) 

IF < SAVE ( I ) • EO .10) ILF • I 
IF ( SAVE ( I ) • EQ • 10 ) GO TO 202 

201 CONTINUE 

C.... HUST PE LAST LINE COULD END WITHOUT LF 
ILF - ILAST 

202 CONTINUE 

WR I TE ( 1 1 2 1 ) ( SAVE ( J J > 9 JJ- ILFOLD* ILF-2) 

21 FORHAT ( 1 32A 1 ) 

C...» RESET ILFOLD TO NEW VALUE 
ILFOLD ■ ILF41 

C... LOOP UNTIL SAVE PUFFER IS WRITTEN 
IF (ILF. NE. ILAST) GO TO 203 
CLOSE (UNIT-1) 

STOP 

END 
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A. 12) MINC DATA ERROR CORRECTION 


Description: This program* FIXUP, is used to correct the measured 

time history files for data errors. 


Listing: 


FORTRAN IV 


V02.5-2 Sun O7-M*r~02 02124*03 


RAGE 001 


0001 


0002 

0003 

0004 

0005 

0006 
0007 
0006 
0009 


0010 

0011 

0012 


0013 

0014 

0015 
0017 
0019 
0021 
0022 


0024 

0025 

0026 
0027 

0029 

0030 

0031 

0032 

0033 


0034 


PROGRAM FIXUP 
C 

C THIS PROGRAM IS USED TO CORRECT DATA ERRORS ON THE MHLE 

C INPUT DATA FILES 

C 

i: t i « » « t » » » I $ t I l t » t I « » t t t t f » $ f t I t 

C * MEASURED STATES? * 

C 4 LONG? 0. V# ALP » THAI ODOTt A-Xt AND A-Z 4 

C * LAIR? p. Rt FT A r PHIt PDOT * RDOT t AND A-Y 4 

C I * 

C • ROBERT CLARKE 16-FEB-82 4 

C 4 4 

C 4»4»4444444444444$t444444444444 

C 

DIMENSION Z<9) 

C NOTE! FOR THIS PROGRAM Z(0) ■ U(l> AND Z<9> • U<2) 

L0GICAL41 LONGfLATRrEXTRA 

FYTE I NAME ( 1 5 ) t ANS 

DATA LONGrLATRf EXTRA /3*. FALSE./ 

DATA 1 NAME (15) /C/ 

DATA VALUE » 1 POINT /O.tO/ 

DATA ILL I M » ZUL I M /O.rO./ 

DATA ISfhl /O/ 

C 

04444**444444*44444 INPUT USER DEFINED SETUP DATA 

2000 CONTINUE 
TYPE 3000 

3000 FORMAT <///// t ' ' * 10X » ' Indicate tw** of run?'* 

1 /*' ' » 10X i ' I f Lonaltudinal tv*a *L # '» 

2 /•' MOXt'If Lataral-di r vet Iona 1 t**a *D*'» 

3 /* f lOXt 'Salact Run T**a? ') 

ACCEPT 100t ANS 

100 FORMAT ( A 1 ) 

IF ( ANS • EG . ' L ' ) LONG - .TRUE. 

IF (ANS.EQ.'D') LATR « .TRUE. 

IF ( .NOT . (LONG. OR. LATR) ) TYPE 3001 

3001 FORMAT ( 10X» 'WRONG ANSWER') 

IF ( .NOT. (LONG. OR. LATR) ) GO TO 2000 
C444444444444444444 ATTACH INPUT DATA FILE 
C444444444444444444 CHECK ON EXTRA DATA 
TYPE 3004 

3004 FORMAT ( • lOXt 'Extra data? <Y OR N)t ') 

ACCEPT 100* ANS 

IF (ANS. EG. 'Y') EXTRA ■ .TRUE. 

04444444*444444444 ENTER NAME OF DATA FILE WITH FLIGHT TEST DATA 
TYPE 3006 

3006 FORMAT ( / * '4' * 1 OX * 'Enter fil* nii« containing ataturtd data? ') 
ACCEPT 101 *( INANE ( I ABC > t 1 ABC* 1 » 1 4 ) 

101 F ORMAT ( 1 4 A 1 ) 

OPEN ( UNI T*4 * NAME* I NAME * TYPE* ' OLD ' * ACCESS* ' SEQUENTIAL ' * 

1 FORM*' UNFORMAT TED ' f RE ADONLY * DUFFERCOUNT *2 ) 

044***4*4*4444*4444 ATTACH OUTPUT DATA FILE 

04*4**4***44444444 ENTER NAME OF DATA FILE FOR FLIGHT TEST DATA 
TYPE 3008 
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003!; 3006 FORMAT (/ t 1 1 OX * ' Enter file neae containing output date: ') 

00^6 ACCEPT 101 i< I NAME ( iABC)» IABC-1 1 14) 

0037 0PEN(UNI T«3fNAME»lNAMEf TYPE-'NEU' » ACCESS* ' SEQUENT I AL ' t 

1 FORM- ' UNI- OkMAT tED ' » DUFFERCOUNT-2 > 

C****************** STARTING ITERATION LOOP 

C****************** GET CHANNEL NUMBER TO CHECK FOR BAD DATA 
0036 TYFE 3010 

003V 3010 FORMAT (/• ' '.lOX.'Data which it auaeact will be ouerried.'9 

1 / ♦ ' ' 9 10X 9 ' Ch*?«*tft can b* aerie whan thaw ara raouaitad/ » 

T /•' 'flOXi'No data can ba chanatd to e>:actlw :aro. ' » 

3 / 9 ' * * * 10X f ' Entar tha channel number to check (1-9)5 ') 

0040 ACCEPT 30 1 1 » 2 NUM 

0041 3011 FORMAT ( I 1 0 > 

C* ***************** GET NUMBER OF DATA POINTS TO NOT WRITE TO OUTPUT 

0042 TYPE J020 

0043 3020 F ORMAT < / * ' t ' * 1 OX » 

1 'Enter the number of data mointt to efcie writing to output: ') 

0044 ACCEPT 3011# ISTM1 


0045 ISTART « IS1M1 + 1 

0046 998 CONTINUE 

0047 IPOINT » I POINT ♦ 1 

c ****************** READ IN MEASURED RESPONSES FROM DATA FILE 
C****************** READ IN LONGITUDINAL DATA 
0046 IF UONG) RE AD < 4 t END" 1 000 ) Z ( 4 > 9 Z < 1 > 9 Z < 7 > » 2 ( 6 ) 9 Z < 8 > 9 

1 AM6 » AM7 f AMO v AM9» AM10 r AMI 1 

0050 IF (LONG. AND. EX1RA) READ ( 4 » END- 1000 ) Z ( 2 > » Z < 3 > t Z < 5 ) 9 

1 AMIS t AMI 6 9 AMI 7 

0052 Z ( 9 ) » 0. 

C****************** READ IN LATERAL DIRECTIONAL DATA 

0053 IF (LATR) RE AD ( 4 9 END- 1000 ) AM l # AM2 9 AM3 9 AM4 1 AMS 9 Z < 4 ) 9 

1 Z<1>9Z<?>9Z<2>9Z(B>9Z(9> 

0055 IF (LATR. AND, EXTRA) READ ( * 9 END- 1 000 > AM 1 2 f AM 1 3 9 AM 1 4 9 

1 Z(3) 9Z(S) 92(6) 


C****************** SKIP OVER DATA NOW 
0057 IF (IPOINl .LT. ISTART) TYPE 30219 IPOINT 

0059 3021 FORMAT < ' ' 9 ' SKIPPING DATA) TIME POINT « 'tl6) 

0060 IF ( IPOINT. IT. ISTART) GO TO 99B 
C»M *************** PRINT OUT DATA 

0062 IF ( (Z< 1NUM) .GT.ZUL IM) . OR . ( Z < I NUM > . LT . ZLL IM ) ) 

1 TYPE 30129 IPOINT 9Z( 1 NUM ) 

0064 3012 FORMAT! 9 'TIME P0IN1 « ' 9 I 69 ' VALUE « 'tF12.6»' CHANGE: * > 

0065 IF ( (Z( I NUM) .LT.ZULIM) .AND. < Z < I NUM ) . GT . ZLL I M ) ) 

1 TYPE 30 1491 POINT 9 Z < I NUM ) 

0067 3014 FORMAT < ' ' 9 'TIME POINT - ' 9 I 6 *' VALUE ■ 'fFl2.6> 

0066 IF < (Z(INUM>,GT. ZULIM). OR. <Z(INUM).LT.ZILIM>> ACCEPT 3013tVALUE 

0070 3013 FORMAT (F10. 1 ) 

0071 IF (VALUE. Nt . 0. ) Z(INUM) » VALUE 
C****************** SET Z UPPER AND LOWER ERROR LIMITS 

0073 ZULIM « Z ( I NUM ) * 1 « 2 

0074 IF (Z(INUM).LT.O, > ZULIM ■ Z(INUM)*0.8 

0076 ZLLIM » Z<INUM)*0.8 


0077 

0079 

0080 
0082 

0084 

0086 

0088 

008V 

0090 

0091 

0092 


IF (Z( INUM) .LT .0. ) ZLLIM • Z(INUM)*1.2 
C********** ******** RESET VALUE TO ZERO 
VALUE - 0.0 

C****************** WRITE OUT LONGITUDINAL DATA 

IF (LONG) WKI TE ( 3 ) Z < 4 ) 9 Z ( 1 ) 9 Z < 7 ) t Z ( 6 ) 9 Z ( 8 > 9 
1 AM6 9 AM7 9 AM8 9 AM9 9 AMlOt AMI 1 

IF (LONG. AND. EXTRA) WKITE<3> Z ( 2 ) 9 Z < 3 ) 9 Z < 5 ) 9 
1 AM 15 9 AM 1 6 * AM 1 7 

C****************** WRITE OUT LATERAL DIRECTIONAL DATA 
IF (LATR) WRITE ( 3 ) AMI 9 AM2* AM3 9 AM4 9 AMS 9 Z ( 4 > 9 
1 Z(1>9Z<7>9Z<2>97<8>9Z<9> 

IF (LATR. AND. EXTRA) URIT£(3) AM 1 2 9 AM l 3 9 AMI 4 9 
1 Z<3) r Z < S ) tZ(6) 

GO TO 998 
1000 CONTINUE 

C****************** CLOSE OUTPUT DATA FILE 
CL0SE(UNIT-39DISP0SE- / SAVE' ) 

STOP 

END 
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A. 13) M1NC SUMMARY DERIVATIVE OUTPUT 


Description: The SUMMARY program is used for the plotting of 

derivative output as a function of lift coefficient. These plots 
are used to show trends in derivative predictions. 

Listing: 


FORTRAN 10 

0001 

C • • • • 

0002 

0003 

0004 

0005 

0006 

c • • • • 

0007 

0008 

c. . . . 

0009 

0010 
0011 

103 

0012 

104 

c * • • » 

0013 

0014 

1001 
c * . * • 

0015 

c # * • • 

0017 

c. . . . 

0018 

1000 

0019 

C • • • • 

0020 

0021 

105 

0022 

c • • • • 

0023 

0024 

0025 

200 

0026 

201 
c » • . « 

0027 

0029 

0031 

0033 

c • » • • 

0035 

0036 

106 

0037 

0038 

107 

0039 

0040 

0041 

10G 

0042 

0043 

0044 

110 

0045 

0046 


0047 



V02.5-2 Hon 22-Feb-S2 00134104 FADE 001 

PROGRAM SUMARY 

SUBROUTINE TO DO HARD COPY PLOTS OF COEFFICIENT DATA 

COHHON /ADDRES/ INSTR 

BYTE ANS?HESSAG(6)»LABEL(25) 

DATA LABEL /25< ' ' / 

DATA HESSAG / ' V ' t ' S ' t ' 0 ' . ' 0 ' ? ' I' ? 0/ 

DATA DOR /57 • 3/ 

SET UP PLOTTER 
CALL PSC (5) 

CALL PCLR 

ASK FOR PLOTTER SPEED 
TYPE 103 

FORHAT ('•'»' Input the plotter treed in ce/aec (1-25): ' > 

ACCEPT 104.1 SPD 
FORHAT (13) 

ENCODE SPEED FOR OUTPUT TO PLOTTER 
ENCODE <2»1001?MESSAG<3> ) 13PD 
F ORNAT ( 12 ) 

CHANGE ENCODED BLANKS BACK TO ZEROS 
IF ( HESSAG < 3 > • EG » ' * > HESSAG ( 3 > » ' 0 ' 

SEND SPEED TO PLOTTER 
CALL IBSEND ( HESSAG . 5 . INSTR ) 

TOP OF LOOP 
CONTINUE 
CALL PEN 

GET QUADRANT FOR PLOT 
TYPE 105 

FORHAT < ' 4 ' . ' Innut the Quadrant for the riot <1-4)1 ') 

ACCEPT 104 » 1QD 

GET MULTIPLICATION FACTOR FOR CRAMER RAO BOUNDS 
TYPE 200 

FORMAT ('•'?' Input the Craaer Reo bound oul tinl icetion fectorl ' 
ACCEPT 201 ’FACT 
FORMAT ( F 10 • 0 ) 

DEFINE PI AND P2 FOR PLOT 

IF OQD.EQ.l) CALL IBSENDC'IP 6000# 4700 1 10000? 7700 )' ? - 1 * INSTR ) 
IF < 10D. E0« 2) CALL IBBEND< # IP 1000 ? 4700? 5000? 77001 '.-l.INSTR) 

IF (IQD.EQ.3) CALL IBSEND<'IP 1000? 1200? 5000? 4200) ' ?-l ? INSTR) 

IF ( IQD • EG. 4 ) CALL IBSEND('IP 6000. 1200? 10000? 4200) ' ?-l ? INSTR) 
GET INFORMATION FOR AXIS OF PLOT 
TYPE 106 

FORMAT (' % '?' Inrut the lebel for the v-axie <ur to 20 char)! ') 
ACCEPT 107? < LABEL ( I )?!■!? 20) 

FORMAT < 20A1 ) 

TYPE 10B 

FORMAT ('•'?' Input the einieue value for the v-axit! ') 

ACCEPT 201 ? YM1N 
TYPE 110 

FORMAT < ' % '?' Inrut the aaxieua value for the v-axiel ' > 

ACCEPT 201 ? YMAX 

YINC ■ < YMAX-YMIN)/10. 

CALL XAX ( 5 • ?10. ? 1 . ?0. ?4. .0.0? 0.25? 2. ?-l. ? 

'LIFT COEFFICIENT ' ) 

CALL TAX <5. ? 10 . ? 1 • ?0. ?10*0?YM1N?YINC?5.?-1. ? LABEL > 


0046 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 


0066 
006 7 
0069 
0071 
0073 

0075 

0076 

0077 
007B 
0079 
0060 
0061 
0082 

0063 

0064 

0005 

0066 

006/ 
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C. . . . SET PLOTTER LIMITS 

CALL LlMlO. .2. . YMINt YMAX) 

C. . . LOOP AN I' PLOT DATA 
S97 CONTINUE 
TYPE 111 

111 FORMAT < '*'• ' Input CL* v«lo«> 6 bound (in Ftr conit 0 to ouitM 
ACCEPT 1 12 1 CL ’VALUE* BOUND 

112 FORMAT ( 3F 1 0 • 0 ) 

C.... MULTIPLY POUND PY FACTOR 
POUND • POUNDiF ACT 

IF ( (CL.EQ.O. ) .AND. (VALUE. EG. 0. ) ) 00 TO 999 
C. . . . PLOT DATA 

CALL PLT < CL ’VALUE * ♦ 1 > 

C. • . • DRAW SYMBOL 

SIZE - 0*025 

DO BOO 1-1 .361*18 
ANG - FLOAT ( 1 ) /DOF 

X * S1ZE*( 1 * ) *COB ( ANG ) 

Y * SIZE*( YMAX-YMIN)iSIN(ANG) 

CALL PLT(CL*Xt VALUE 4 Y • -2 ) 

000 CONTINUE 
CALL PEN 

C. . . . DRAW BOUNDS 

C.... COMPUTE UPPER POUND 

CELT * ( POUND* VALUE / 1 00 « > 

IF ( VALUE . 3E • 0 < ) UPPER * VALUERS I ZE* < YMAX-YMIN) 

IF ( VALUE. LT .0. ) UPPER - VALUE-SI ZE* < YMAX-YMIN > 

IF ( VALUE. GE.O. ) ALOWER * VALUE-SIZE* ( YMAX-YMIN > 

IF (VALUE. LT. 0. ) ALOWER • VALUE ♦SIZE* ( YMAX-YMIN ) 

CALL PLT(CL*UPPER**1 > 

CALL PLT ( CL t VALUE* DELT t 42 ) 

. CALL PLT(CL-SIZE’VALUE*DELTt*2> 

CALL PLT < CL4SXZE * VALUE* DEL T * + 2 ) 

CALL PLT(CL’AL0WER»*1) 

CALL PLT < CL » VALUE- DEL T t *2 ) 

CALL PLT(CL-SIZE’ VALUE-DELT * *2 ) 

CALL PLT ( CL4SXZE .VALUE-DELT * *2 > 

CALL PEN 
CO TO 997 

C.... DONE WITH PLOT GO UP AND REPEAT 
999 CONTINUE 
00 TO 1000 
END 
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APPENDIX B 

MMLE (NEWTON) TEST CASE 

This appendix contains the computer output and comparison 

plots for the MMLE test case A from NASA TND-7831. The comparison 

is good vith the differences of final weighted error (Our 5.7576 x 

-2 -2 

10 vs NASA's 5.890 x 10 ) attributed to floating point accuracy 
(Our 32 bit vs NASA's 60 bit real numbers). The overall derivatives 
and Cramfer-Rao bounds are compared in Table B.l below. Figure B.l 
shows the time history plots. The dashed lines are the predicted 
time histories, and the solid lines the measured time histories. 

Table B.l Comparison of MMLE Test Case Results* 


NASA 

KU-m MMLE 

S 

-1.013 

X 

10~ l 

(9.0) 

-1.2814 x 

10" 1 

(5.8) 

L 

r 

2.464 

X 

10° 

(8.5) 

2.4643 x 

10° 

(8.3) 


-2.432 

X 

10 +1 

(0.6) 

-2.4328 x 

10+ 1 

(0.6) 

»- s 

1.447 

X 

10 +1 

(2.5) 

1.4422 x 

10 +1 

(2.5) 

6 a 



10* 1 






1.787 

X 

(2.2) 

1.7847 x 

10 +1 

(2.1) 









L o 

4.092 

X 

10’ 1 

(1.7) 

4.1006 x 

10’ 1 

(1.7) 




-4 



-4 


N 

P 

4.463 

X 

10 4 

(162.4) 

6.1063 x 

10 

(100.1) 

N 

r 

-1.514 

X 

10~ X 

(10.8) 

-1.2910 x 

10’ 1 

(12.5) 


1.290 

X 

10° 

(0.8) 

1.0243 x 

10° 

(0.9) 

\ 

5.062 

X 

10’ 1 

(6.3) 

6.7616 x 

10’ 1 

(4.6) 

N i 

-2.125 

X 

10° 

(1.8) 

-1.9165 x 

10° 

(1.9) 









N o 

-7.533 

X 

10* 3 

(7.6) 

-3.2595 x 

10- 3 

(17.2) 

• inu^ 

1.026 

X 

io" 1 

(0.8) 

1.1360 x 

10- 1 

(0.7) 

Y 8 

-4.670 

X 

10’ 2 

(1.2) 

-4.6683 x 

10~ 2 

(1.1) 

Y 6 

2.753 

X 

10“ 3 

(33.2/ 

2.7210 x 

10’ 3 

(33.2) 

A 








Y 6 

1.594 

X 

10’ 2 

(6.4) 

1.5915 x 

icf 2 

(6.3) 





! 




Y o 

-3.035 

X 

10" 3 

(6.9) 

-3.0605 x 

10* 3 

(7.4) 

l 0 

-8.423 

X 

xo- 2 

(-> 

-8.5449 x 

io~ 3 

(22.1) 


0.3179 


0.5217 


blma 








*biee 

-0.02582 


-0.0259 


r biaa 

-0.004472 


-0.0047 



Craadr-Rao bound as a percentage of aach derivative la ahovn In 
paranchaaas following tna darivatlve. 
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Table B.2 MMLE Computer Output; Test Case A (continued) 
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Table B.2 MMLE Computer Output; Test Case A (continued) 
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APPENDIX C 

TRANSFORMATION OF AXES SYSTEMS 

This appendix shows the correlation between several axes 
systems. 

Much information contained in this section is taken directly 
from Reference 6 , which deals in depth with the problem of the 
different axes systems used in airplane analysis. 





There are primarily five axes systems used in airplane analysis. 
These are described here. 

1) Body Axes 

"The orthogonal body-axes system is fixed within the vehicle 
with the X-axis along the longitudinal center line of the body, the 
Y-axis normal to the plane of symmetry, and the Z-axis in the plane 
of symmetry. This is the axes system about which aircraft instruments 
are usually mounted. Itt main advantage in motion calculations is 
that vehicle moments of inertia about the axes are constant, so that 
the I terms can be omitted Iroro the equations of motion. It is the 
logical system to which to refer velocities, accelerations, and 
stability and control parameters in the study of aircraft handling 
qualities because the pilot's orientation with respect to this frame 
is fixed." [Tkii -u the (ixei &t/6tem u&ed <6t thii Kzpofvt . ) 

2) Principal Axes 

"The principal axes are an orthogonal body-fixed system for 
which the products of inertia are zero. The X and Z principal axes 
lie in the plane of symmetry; the angle between the X body axis and 
the X principal axes is usually small so that in many cases the body 
axes can be assumed to coincide with the principal axes." 


From Reference 6. 
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3) Flight Stability Axes 


"The flight stability axes (sometimes referred to as vehicle 
stability axes) are an orthogonal body-axes system fixed to the 
vehicle, the X-axes of which is alined with the relative wind vector 
when the vehicle Is in a steady-state trim condition but then rotates 
with the vehicle after a disturbance as the vehicle changes angle of 
attack. This system is preferred in many stability studies because, 
as with other body-fixed axes, the moments of inertia about the axes 
remain constant and also because the motions defined are primarily 
those about the flight path rather than about body reference lines." 
(T/tu 16 tke. oxca 6y&te.m uAtd. in RetfcAcnce 25. ) 

4) Wind-Tunnel Stability Axes 

"The wind-tunnel stability axes are the system about which most 
wind-tunnel data are obtained. For this system the X-axis is in the 
same horizontal plane as the relative wind at all times .... The 
angle a between the X-axis of this system and the X-body axes is vari- 
able. (It is a constant a q for the flight stability axes.) This 
means that vehicle moments of inertia about the X-axis change. It 
also means that additional terms are required in the transformation 
equations for static-stability derivatives and for u,v,w derivatives 
when data are transferred to or from the wind axes or the wind-tunnel 
stability axes." 


From Reference 6. 
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5) Wind Axes 


"The wind axes are Che system generally used in calculating 
motions of the vehicle as a point mass. The X-axis for this system 
is alined with the relative wind at all times so that vehicle moments 
of inertia about this axis change. As with the wind-tunnel stability 
axes, additional terms . . . are required in the transformation to or 
from the wind axes and either the body, principal, or flight stability 
axes, since the angle . . . between the X wind axis and the X-axis of 
either of these systems is variable. Also, since the lateral angle . . . 
between the X-axes is variable, there are additional terms . . . required 
in the transformations for some of the lateral derivatives between the 

ik 

wind axes and either of the other axes systems." 

The correlation between these axes systems is perhaps best sum- 


marized by Table C.l. 

Table C.l Designation of Force and Moment Coefficients 
for Different Axes Systems* 


Component 

Coefficients for axes system - 

Body or 
principal 

Flight 

stability 

Wind-tunnel 

stability 

Wind 

X-axis force 

C X ° r - C A 

C X,s 

- C D 

- C D 

Y-axis force 

C Y 

C Y,s 

C Y 

c c 

Z-axis force 

C Z or -°N 

C Z,s 

~ C L 

’ C L 

X-axis moment (roll) 

C £ 

C £,s 

^£,wt 

C £,w 

Y-axis moment (pitch) 

C m 

C m,s 

C 

m,wt 

Sn,w 

Z-axis moment (yaw) 

C n 

r 

~n f s 

^n,wt 

C n,w 


From Reference 6. 
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Transformation from the flight stability axes (as used in Ref- 
erence 22) to the body axes used in this report involves accounting 
for the steady-state angle of attack (c^). The following equation 
takes care of this by correcting the inertias. This is the only 
change required. 


• ■ 





« 


— — 

I 

XX, s 


cos 2 o^ 

sin 2 a^ 

(— ) sin 2 a^ 

0 


X xx 

*zz,s 


sin 2 a^ 

cos 2 a^ 

sin 2 a^ 

0 


*zz 

I 

xz,s 

m 

■|sin 2 a^ 

(-)>|sin 2 a^ 

cos 2 a^ 

0 


X xz 

I 

yy»s_ 


0 

0 

0 

1 


1 

M 

1 


NOTE: "s" denotes stability axes; no subscript denotes body axes. 

NASA Langley (Reference 4) and NASA Dryden (References 5, 16-19) 
both use the body axes system. They both, however, use different 
designations. NASA Langley uses the X, Y , Z, l, m, n designation; 

NASA Dryden, the A, Y, N, £,, m, n designation. The parameters will 
be presented in the X, Y, Z, £,, m, n system in this report. Table 

B. 2 shows the correlation between both these systems. 

The symbols (i.e., Z fl ’, etc.) in the definition column of Table 

C. 2 are those as predicted by the MMLE "BONES" program. For conversion 
from normal stability parameters (as per Reference 25) to these state 
vector derivatives, the reader is referred back to Tables 5.2 and 5.3. 

For rigorous conversion between the various axes systems, the 
reader is referred to Reference 6. 
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Table C.2 Comparison of Non-Dimensional Derivatives 


LONGITUDINAL 


KU-FRL 


NASA Langley NASA Dryden 

designation assignation 


LATERAL-DIRECTIONAL 


KU-FRL 


DEFINITION 


e ' 

-C M 1 

z 

N 

a 

a 

c„ • 

-C., * 

z 

N 

u 

u 

C 2 ' 

” C N, 


5,. 

EfC 

E f c 

C 2 ’ 


c 

0 

C * 

C * 

in 

IQ 

a 

a 

C ' 

C 1 

m 

IB 

q 

q 

c • 

c • 

a 

tn 

u 

u 

C 1 

C * 

6 E.c 

m 6 

E,c 

C 1 

C 1 

D 

m 

0 

0 

r • 

-C. • 

X 

A 

a 

a 

r ' 

-C 1 

X 

A 

u 

u 

c v 1 

-C * 

X £ 

£ C,c 

A 6 f 

E»c 

C 1 

c x 

- C A ’ 

o 

o 


Z 1 raU. 
a 1 


Z. ' tnU, 
6 E.c 1 


u' nU l 


NASA-Langlcy / 

-Dryden 

designation Definition 


2 


V mU 


Y, ' raU, 
4 A 1 


V ° U 1 


N 1 I 
B zz 


V *.« 




























